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IDENTIFICATION 
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CATE CREATED: MAY i976 
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PRODUCT CODE: | MAINDEC-11-D2RIB-A-D 
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THE INFORMATION IN THIS STATEMENT IS SUBJECT 79 CHANGE 
WITHOUT NOTICE AND SHOULD NOT BE cates RUSE aS A 
COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. 


ACTUAL DISTRIBUTION OF THE SOFTWARE DESCRISED IN THIS 
DOCUMEN WILi SE SUBJECT TO TERMS AND CONDITIONS TO 
NNOUNCED ON SOME FUTURE DATE BY DIGITAL EQUIPMENT 


BEA 
CORPORATION. 


DEC ASSUMES NO RESPONSIBILITY FOR THE Use OR 
RELIABILITY OF ITS SOFTWARE ON EQUIPMENT WHICH IS 
NOT SUPPLIED BY DEC. 


THIS SOFTWARE IS FURNISHED TO aleteaen OES 5 
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INCLUSION OF DEC’S COPYRIGHT NOTICE) ONL wie 
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THE RFOY-S/6 Ae ee Brae ciraces THE uty PACK AND PERFORMS 


A_CURSORY CHECK OF 


CPERATOR 5 SPECIEY RODRESS LIMITS, PATTERNS, AND EITHER 16 SIT OR 
Mg OE _ THE PROGRAM VERIFIES EACH TRACK WRITTEN 
aS ei. 3 mat YING i FORMAT OPER 


RESUIREMENTS 


EQUIPMENT 
EOP" 11 PROCESSOR 
FLETY® 


e 
PROGRAM LOAD DEVICE 
Slime OR KWL1-P CLOCK 


RH11 OR RH70 WITH 1 - 8 RPOY, RPOS, RFOG CISk DRIVES 


PRELIMINARY PROGRAMS 


RPOY o, SESS CONTROLLER TEST 
INDEC-11-D283%) 
EaRT } (MAINDES- ~UiBSRI 


REDS. oA, | oe CONTROLLER TEST 
(MAINDEC-11-D2RI1) 
BART 3 (MAINDEC-11-D2RJJ) 


LOADING PROCEDURES 


THE a MAY BE LOADED FROM PAPER TAPE USING THE ABSOLUTE 
RDER_ OR IT MAY BE LOADED FROM THE APPROPRIATE “XxDP° MEDIA 
en THe, BssoczaveD LOADER. 


STARTING ADDRESSES 
THE PROGRAM IS STARTED FROM 
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LOCATION 20018) IF THE ADDRESS OF THE 


EO] 


RFACE. THE PROGRAM ALLOWS THE 


THE PROGRAM MAY NOT SE INCLUDED 
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RH11 OR RHTO WILL NOT BE CHANGED 
THE PROGRAM IS TARTED FROM LOCATION 204:9) IF THE ADDRESS OF 
HE RHI! OR RHTD IS TD BE CHANGED FROM THE PRELOADED VALUE 
te Cee TION 4.3) 
OPERATION ACTION 
1. LOAD THE PROGRAM INTO MEMORY (SEE SECTION 3). 
. LOAD THE STARTING ADDRESS - 200(8) OR 204(8). 
SET THE SWITCHES AS REQUIRED AND PRESS ‘START’. 
IF THIS IS THE PROGRAM’S FIRST START, THE TATUS OF THE DR ves 
ON THE SELECTED MASSBUS suSs\STEN Wd BE OUT. THIS TYP 
MAY BE INHIBITED ON SUBSEQUENT STARTS BY SETTING SW<O2>. 
4. THE PROGRAM WILL THEN TYPE THE FOLLOWING MESSAGE: 
“PROGRAM MODE (C OR F):° 
ENTER THE GPEROPRIATE CODE: °C’ FOR ‘CHECK’ OPERATION OR 'F° 
FOR ’FORMAT & VERIFY’. IF A ‘CARRIAGE RETURN’ IS ENTERED IN 
RESPONSE TO THE REGUEST, THE PROGRAM WILL ASSUME "FORMAT & 
S. THE PROGRAM WILL THEN ASK FOR THE FORMATTING MODE: 
“OPERATE IN 22 SECTOR (16 BIT) MODE (y OR ND’ 
ENTER THE APPROPRIATE CHARACTER: "Y* FOR 16 SIT MODE OR “N’ FOR 
18 BIT MODE. IF A ‘CARRIAGE RETURN’ IS ENTERED IN RESPONSE 10 
THIS REQUEST, THE PROGRAM WILL ASSUME 1& BIT MODE. 
S. THE PROGRAM WILL THEN ASK FOR A DRIVE: 
"DRIVE: ° 
ENTER THE ADDRESS OF THE DRIVE TO BE FORMATTED. A ‘PERIOD’ OR 
ARRIAGE RETURN’ ENTRY WILL SELECT DRIVE 0. IF THE DRIVE sfrecter 
rs NOT AVAILABLE, THE PROGRAM WILL TYPE AN ERROR MESSAGE AND 
RETURN TO THE ORIVE ADDRESS REQUEST. 


7. @&TER THE OPERATOR HAS SELECTED A DRIVE, THE PROGRAM WILL ASK 
FOR ADDRESS LIMITS FOR THE SELECTED DRIVE: 


"ENTER ADDRESS LIMITS: ° 
THE PREVIOUSLY SELECTED OR DEFAULT VALUES FOR BEGINNING CYL INDER 
TF A CARRIAGE RETURN” IS TYPED AS A RESPONSE THe PRESENT VALUE 


w@ fT 


YPEOUT 
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4.3 RHi1 - RH70 UNIBUS ADDRESS 


THE PROGRAM ASSUMES THAT THE RH11 OR RH70 ADDRESSES START AT 
17700 RND THAT THE VECTOR ADDRESS IS 254. THESE ADORESSES MAY 


i] 


THAT THE CYLINDER AND TRACK UES AR 
THE Beortss SPECIFIED BY THE BEGINNIN 
BE LESS THAN THE ADDRESS SPECIFIED BY 
TRACK ADDRESS. 


THE PROGRAM WILL THEN ASK FOR THE DATA PATTERN: 
“SELECT DATA PATTERN 
{0} ZERO’S 


MAL NUMBERS. 
AND TRACK MUST 
YLINDER AND 


s*. 
oz 


(1) ONES 

(2) WORST CASE:’ 
ENTER THE CODE FOR THE REQUIRED PATTERN. ‘CARRIAGE RETURN’ OR 
PRTTEeN, ENTRIES WILL CAUSE THE PROGRAM TO USE THE "WORST CASE’ 






THE "WORST CASE* PATTERN IS THE FOLLOWING OCTAL orsamarsioes REPERTED 


THROUGH THE DATA AREA OF THE SECTOR: j 
1g5555 
133333 
THE PROGRAN WILL THEN TYPE: 
"STARTING FORMAT Ot DRIVE N’ 
OR 
"STARTING CHECK ON DRIVE N’ : t 
THE OPERATOR CAN DETERMINE WHERE THE DRIVE IS DURING THE FORMAT | . 
OR CHECK OPERATION SY TYPING A "CONTROL C’. THE PROGRAM WILL ] 2 
TYPE THE FOLLOWING MESSAGE: | 
"PRESENT ADDRESS IS: CXXX TXx’ } 
IF A "CONTROL C’ IS TYPED WHILE THE PROGRAM IS TYPING THE CURRENT Ad 
RODRESS, THE PROGRAM WILL ABORT THE FORMAT (OR CHECK) OPERATION “ 
AND RETURN TO THE *DRIVE* REQUEST. | 
IF THE OPERATOR DOES NOT SELECT A DIFFERENT DRIVE WHEN THE FORMAT 
OR CHECK OPERATION HAS COMPLETED, THE PROGRAM WILL NOT ALTER THE 
BOORESS LIMITS, SPECIFIED AT THE START OF THE PREVIQUS OPER ATION. 
IF THE FORMAT OR CHECK OPERA ON" 15 TER TERMINATED BY A "CONTROL C’ OR 
TF A DIFFERENT DRIVE 1S SELECTED, THE PROGRAM UILL RESET THE 
AOORESS LIMITS TO THE VALUES APPROPRIATE FOR THE DRIVE T 
TO CHANGE EITHER THE ADDRESSING MODE OR THE OPERATION MODE 


THE 
PROGRAM MUST BE STARTED FROM LOCATION 200(8) OR 204(8) AGAIN. 


eo 
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4.4 


BE CHANGED a Ris orn IS aren a LOCATION 204(8). 

IF THE RH1i_- ie T THE ADDRESS, THE PROGRAM MUST 

Fen STARTED FROM nt ) IN IALLY TOROCRAR AM GOES THROUGH T 
DRESS CHANGE ROUTINE AT INITIAL arn ART ONLY. ENTER THE RH11 RH70 

BDRESS IN RESPONSE TO THE REQUEST FROM THE PROGRAM. 


OTHER UNIBUS ADDRESSES 


LOC = TAG-=—SsCONTENTS FUNCTION 

1144 = STKS ~=—«177560 TTY KEYBOARD STATUS REGISTER 

1146 © §TKB_ = «177562 TTY KEYBOARD BUFFER REGISTER 

1150 $TPS._—s«177554 TTY PRINTER STATUS REGISTER 

i152 9 §TPB_ «177565 TY PRINTER BUFFER REGISTER 

1176 © SLKCSR 172540 KW11-P CONTROL REGISTER 

1209 © SLKCSB «172542 KW11-P COUNTER REGISTER 

1202 «= SLPVEC 10 KW11-P VECTOR ADDRESS 

1206 = SLKS—1775MS KW11-L CONTROL REGISTER 

1210 = SLkV 100 ;ADDRESS OF KWL1-L VECTOR 

SWITCH REGISTER SETTINGS 

Sil 15>=1...HALT ON ERROR 

SW<13)=1.. INHIBIT ERROR TYPEOUTS 

SH<10)=1- “BELL ON ERROR 

Sii<D9>=1:: :LOOP_ON ERROR : 

Si<O2>=1:: DON’T DISPLAY SYSTEM STATUS AFTER INITIAL START 

SH<O1>=1- LOOP ON THE CURRENT T 

5u(00>=1::°LOOP THE PROGRAM ON THE SELECTED DRIVE 

1F_THE PROGRAM IS BEING RUN ON A SHITCHLESS PROCESSOR (1.6. AN 11/24) 

THE PROGRAM WILL DETERMINE THAT THE HAROWARE SWITCH REGISTER Is 

NOT PRESENT AND WILL USE A "SOFTWARE SWITCH REGISTER. THE 
OFTWARE’ SWITCH REGISTER IS LOCATED AT LOCATION 175 (8). 


THE 
SET TINGS OF THE *SOFTWARE’ od BAS ARE CONTROLLED THROUGH A KEYBCARD 
ROUTINE WHICH IS CALLED BY TYPING A ’CONTROL G’. THE PROGRAM WILL 
COGNIZE THE *CONTROL G’ at ANY TIME EXCEPT WHEN THE PROGRAM 

AT A HIGHER PRIORITY Proce este AN RPO4/S/6 INTERRUPT. THE 
FTWARE’ SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE 
THE PROMPT FROM THE SWITCH ENTRY ROUTINE: 


*SWR = NNNNNN NEW =’ 
EACH TIME SWITCH SETTING ARE ENTERED, THE ENTIRE SWITCH REGISTER 
IMAGE MUST BE ENTERED. LEADING Boe ARE No Peat thes about 
"CONTROL U’ FUNCTIONS MAY BE USED TO CORRECT TRB ING ERRORS 
DURING SWITCH ENTRY. 


ON PROCESSORS WITH HARDWARE SWITCH REGISTERS, THE "SOFTWARE* SWITCH 


T 


ee eee, ee ee 
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REGISTER MAY BE USED. IF THE PROGRAM FINDS ALL 16 gts IN THE 
*UP* POSITION, ALL SWITCH REGISTER REFERENCES WILL BE TO THE 
oF SED REGISTER AND THE PROCEDURES DESCRISED ABOVE MUST 


ERROR MESSAGES 


1. “RHI1 INTERRUPT OCCURRED (RPAS=0) - AN INTERRUPT OCCURRED, BUT 
NOTHING ON THE MASSBUS IS INDICATING AN ATTENTION. 


2. ‘UNEXPECTED ATTENTION OCCURRED’ - THE INDICATED DRIVE INTERRUPTED, 
BUT NO INTERRUPT WAS EXPECTED FROM THE INDICATED DRIVE. 


3. "MASSBUS PARITY ERROR (MCPE=1)’ - A CONTROL BUS PARITY ERROR 
WAS DETECTED BY THE RH11 WHEN THE INDICATED REGISTER WAS READ. 


4. *MASSBUS PARITY ERROR (PAR=1)}’ - 4 CONTROL BUS PARITY ERROR 
OCCURRED WHEN THE INDICATED REGISTER WAS WRITTEN. 


5. ‘ADDRESS PLUG CHANGE BIT SET’ - THE PROGRAM FOUND THE ‘OPE’ — 
BIT SET FOR THE INDICATED DRIVE. 


&. ‘*RH11 DIDN’T RESPOND TO ADDRESSING’ - THE PROGRAM ACCESSED THE 
RH11 AT THE INDICATED ADDRESS AND RECEIVED NO RESPONSE. 


7. “DRIVE OFFLINE’ - THE INDICATED DRIVE HAS GONE OFFLINE 


8. ‘PERSISTENT DRIVE UNSAFE ERROR’ - THE INDICATED DRIVE HAS BECOME 
UNSAFE AND THE CONDITION CANNOT BE CLEARED BY ISSUING "DRIVE 
CLEAR* INSTRUCTIONS. 


3. ‘UNCORRECTABLE Lats PARITY ERROR’ - THE PROGRAM ATTEMPTED 
TC PERFORM AN OPERATION AND DETECTED 3 SUCESSIVE MASSSUS FARITY 
ERRORS OR THE PROGRAM ATTEMPTED TO CLEAR A *PAR’® ERROR IN THE 
DRIVE AND A PARITY ERROR OCCURRED. 


19. *SOFTWARE TIMEOUT’ - THE OPERATION FAILED TO COMPLETE WITHIN 
1 SECOND. 

ll. ‘DRIVE pene ERROR’ - A NON-PERSISTENT UNSAFE ERROR OCCURRED 
DURING THE OPERATION. 


12. ‘*CONTROLLER/DRIVE ERROR DURING WRITE’ - 1 INDICATED NON-DATA 
ERROR WAS DETECTED DURING A FORMAT OPERATION. 


13. ‘*CONTROLLER/DRIVE ERROR DURING WRITE CHECK’ - A NON-DATA a ERROR 
OCCURRED DURING THE WRITE CHECK. 


14. "DATA ERROR DURING WRITE CHECK’ - A DATA RELATED ERROR OCCURRED 
DURING A WRITE CHECK OPERATION. A DATA ERROR IS CONSIDERED 
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SEQ o008 
B2RIBA. DOC 
TO BE ONE OF THE FOLLOWING ERRORS: 'DCK’, 'OPI', "DTE’, "HCRC’, 
‘HCE’, OR ‘FER’. 
15. *RETRIES NOT SUCESSFUL - SECTOR NOT ACC = THE INDICATED 
cee TEA pomgsleonpal TRY FOLLOWING A BATA ERROR 
18. CONTROLLER/DRIVE RIFYING HEADERS’ - AN ERROR OCCURRED DURING 
THe VERIFICATION Price OFTER FORMATTING 
17. "*HCE' ERROR VERIFYING HEADERS’ - A HEADER ERROR OCCURRED DURING 
THE VERIFICATION PASS AFTER FORMATTING. 
18. CYLINDER FIELD IN HEADER IS NOT CORRECT’ - THE CYLINDER FIELD 
FROM A HEADER READ DURING THE VERIFICATION PASS IS NOT CORRECT. 
19. ‘WRITE CHECK ERROR’ - THE RH11 REPORTED A WRITE CHECK ERROR AND - 
NO CRIVE ERRORS WERE SET. 
?. MISCELLANEOUS 
7.1 FORMAT TIME ‘ 


Ij TAKES APPROXIMATELY 8 MINUTES TO at AN ENTIRE RPOY/S PACK 
AND APPROXIMATELY 16 MINUTES TO FORMAT AN RPO& PACK. THE "CHECK’ 
Doe bats ron AN ENTIRE PACK IS 4 MINUTES FOR RPO4/5’S AND 8 MINUTES 


ie HALTING THE PROGRAM 


THE OPERATOR. SHOULD NOT HOLT THE PROGRAM DURING A FORNGT OPERATION. 
HALTING THE PROGRAM MA Wes A SECTOR INCORRECTLY FORMATTED. | TO 
TERMINATE HE FORMAT ONTROL C’ AND WHILE THE PROGRAN IS 

| YPING THE ADDRESS, tYPE ANOTHER "CONTROL C’; THIS SEQUENCE RETURNS 

THE PROGRAN TO THE’ DRIVE ADDRESS ENTRY ROUFIAE. 
| 7.2 SURFACE VERIFICATION 

| 

' 

| 

! 

| 

i 

! 

t 


THE FORMATTER PROGRAM IS NOT INTENDED TO BE USED TO PERFORM DISK 
PACK VERIFICATION. “alt THE PROGRAM REPORTS A SE Bian aes Beans *NOT 
ACCEPTABLE’, THIS MAY IN FACT PNDICATE A BAD SORE RCE WEVER 
SECTORS WHICH *PASSED’ MAY OR MAY NOT BE GOOD. 


8. PROGRAM DESCRIPTION 


8.1 FORMAT OPERATION 


DZRIBA. DOC 








8.2 


8.3 
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THE PROGRAM FORMATS THE PACK ONE [RACK AT A TIME BETWEEN THE LIMITS 
SPECIFIED BY THE DRIVE. 


FORMAT OPERATION aye WRITE HEADER AND DATA COMMAND FOR 
THE ENTIRE OLLOWED BY A etre Ck DATA COMMAND. 
aN ERROR OCCURS DURING THE PROGRAM WILL RETRY THE 
17t BEFORE CONTINUING. IF A DATA’ RELATED ERROR 1S DETECTED 

NG THE WRITE CHECK, (A DATA ais DEF eats i 


- IF @ DATA ERROR IS AetECtED IN THE SECTOR 
TE CHECKS, THE PROGRAM 
I 


heal 














WILL DECL 
PTABLE’. FOLLOWING THIS SEQUENCE 
S CHECKED. IF DATA ERRORS ARE ENCOUNTERED 


ee 


IF A NON-DATA RELATED ERROR OCCURS DURING THE WRITE CHECK, THE 
"+e Be ty THE COMMAND FOR THE ENTIRE TRACK BEFORE PROCEEDING 


THAT THE FORMATTER PROGRAM FORMATS THE PACK ONLY 
OF K. _ERRORS. 


PR CALL A OF _THE PACK; 
UNFORTUNATELY, SECTORS WHICH "PASS’ CANNOT BE ASSUMED TO BE GOOD. 


DURING THE FORMAT OPERATION, THE PROGRAM FILLS THE DATA FIELD 
WITH THE PATTERN a ae BY THE OPERATOR. THE KEYWORDS IN THE 
HEADER ARE ALWAYS SET TO ZERO. 


CHECK OPERATION 

THE CHECK OPERATION IS IDENTICAL TO THE WaT TE Eon PORTION OF 
THE FORMAT OPERATION yt eg DESCRIBED IN SECTION 8.1 EXCEPT 
THAT THE PROGRAM WILL NOT RE-WRITE ERROR SECTORS. 


POSITIONER VERIFICATION 


AFTER THE eon oe S THE FORMAT OPERATION 
POSITIONER I O THE STARTING CYLINDER AND THE HEADER 
FROM SECTOR ©, ON THE STARTING NG TRACK IS READ. THE CYLINDER ADDRESS 
FIELD FROM THE HEADER IS COMPARED TO & REQUESTED CYLINDER; IF 
THE CYLINDER ADDRESSES DO NOT COMPARE, AN ERROR MESSAGE IS tyPED 
THE PROGRAM NDER ADDRE R ene 
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9. PROGRAM LISTING 


ae a ee ee ee ee ee ee ee 
| SEQ 9010 
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— thee 


MO1 
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Ma Mac 
DZRIBA.DOC 


% 


END 
ERRORS DETECTED: O 
*  DZRIBA/SOL=DZRJBA. DOC 


RUN-TIME: 1 2 0 SECONDS 
CORE USED: 3K 


ee ee ee = ee ee cee ee eee eee 
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ts ee 


= | Satine eoDREsS To°CHANGE THE RHL1 ADDRESS = 204 
55 BASIC DEFINITIONS 
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168 

214 RPoY aoe REBT ETERS 

403 RPOY/S/6 DRIVER COMMANDS 

435 COMMON TAGS 

$34 ERROR POINTER TABLE 

731 MAIN PROGRAM 

733 INITIALIZE THE COMMON TAGS 

841 GET VALUE FOR SOFTWARE Toit rcH REGISTER 

E ROUTINE 

17393 T . 

1870 BINARY TO OCTAL (ASCII) AND TYPE 

1348 CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
201s TTY INPUT ROUTINE 
2273 TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS 
e237 SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROU 
2316 DOUSLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 
23793 SAVE ae A RO-RS ROUTINES 







, TRAP TABLE 
2472 SINGLE/DUAL PORT RH11/RPO4/S/6 DRIVER (REY 1.0) 
3888 SAGES 


AGE 
4404 BUSADR - GET BUS ADDRESS AND VECTOR ADDRESS FOR RH11 
4466 CK.NUM - CHECK NUMBER (OCTAL) 
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crvarnary 


~TITLE MD-11-DZRJB-A, RPOY’S’& FORMATTTER PROGRAM 
s*COPYRIGHT (C) 197 ~ 

;*DIGITAL EQUIPMENT CORP. 

. ;RMAYNARD, MASS. 01754 


:* 
;*PROGRAM BY C. HESS 


:# 
:*#THIS PROGRAM WAS ASSEMBLED USING THE POP-11 MRINDEC SYSMAC 
Sieataiee (MAINDEC-11-DZQAC-C1),MAR 24, 1978. 


~SSTTL OPERATIONAL SWITCH SETTINGS 


7% 

+ SWITCH USE 

:% 15 HALT ON ERROR 

13 13 INHIBIT EREGR TYPEQUTS 

4 18 BELL ON ERROR 

re 3 LOOP ON ERROR 

:# 2 DON’T DISPLAY SYSTEM STATUS AFTER INITIAL START 
:# } LOOP ON THE CURRENT TRAC wey 

ia Q LOOP THE PROGRAM ON THE SELECTED DRIVE 

.SSTTL TRAP CATCHER 


ATIONS FROM 4 - 776 CONTAIN A". +2,HALT™ 
TCH ILLEGAL TRAPS AND INTERRUPTS 
TAINS O 70 CATCH IMPROPERLY LOADED VECT 


1 
SPREG: .WORD 9 7; SOFTWARE OISPLAY REG! 
SWREG: .WORD OC :;SOPTWARE SWITCH REGIS" 


~SBTTL ACTLL HOOKS 


£ ESSSREASAELELSSLSAASLEASSSSEFRERLSTELTFERSSLARELSLERLLATESRELLSRE 


:HOOKS REQUIRED BY ACTLI 
$SVPCs. 


RS 
TER 
ER 


0 
§ 


:SAVE PC 
SENQAD ssLISET LOC.46 70 ADDRESS OF SENDAD IN .SEOP 
"WORD 20000 : 322867 490.82 TO 20000 
"2$SVPC t: RESTORE Pe 


.S8TTL STARTING ADDRESS = 209 
ie BEGINI sNORMAL STARTING ADORESS 


-SBTTL STARTING ADDRESS TO CHANGE THE RH11 ADDRESS = 224 
IMP BEGIN ;CHANGE THE AkLL RCORESS 


~SBETTL BASIC DEFINITIONS 





©-49-2 
(330-- 


~3~a~ iD rune hee eee 


~$~ 9-9-9 
rot st MPU £ Gstie-(3.009- 30" 


COON OOO - 3-3 ~ 
a | rt At tet os Mitty 


i 


AZIEBLS GRRL EIR 


-0-+9-~8-<6 


009906 
200207 


209900 


yooecAa 


+d 


tlt 


ana 
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iSINITIAL ADDRESS OF THE STACK POINTER *2# 1100 #4+ 


ST 
ssBASIC DEFINITION OF ERROR CALL 


l 
~EQUIV bn »ERROR 
EQUIV TOT, SCOPE ;;BASIC DEFINITION OF SCOPE CALL 


a aseane 5 can DEFINITIONS 


aie 


T= ;:CODE FOR HORIZONTAL TAB 

LFs le ;;CODE FCR LINE FEED 

CR= 13 3300 ated CARRI RETURN 

CRLF= 00 :>:;CODE FOR CARRIAGE RETURN-LINE FEED 

&S= 177776 ;;PROCESSOR STATUS WORD 
EQUIV PSPS 

STKLMT= 177774 ;:STACK LIMIT REGISTER 

pings 177772 ;:PROGRAM INTERRUP REQUEST REGISTER 

DSWR= 177570 :;HARDWARE SWITCH REGIS ares 

OOrsP= 177570 ; ;HARDWARE DISPLAY REGISTER 
;#GENERAL PURPOSE REGISTER DEFINITIONS 

Roz %0 :;GENESAL REGISTER 

Ris “1 : ; GENE REGISTER 

R2= “2 ;;GENERAL REGISTER 

R3= “a ;;GENERAL REGISTER 

R4= “4 ;;GENERAL REGISTER 

Ros “Ss ; ;GENERAL REGISTER 

Rb= be 7s GENERAL REGISTER 

R7= :GENERAL REGISTER 

EQUIV Re, SP aS ACK POINTER 

EQUIV R?. PC ::PROGRAM COUNTER 
s#PRIORITY LEVEL DEFINITIONS 

Pro= 0 s;PRIORITY LEVEL 0 

PRi= 40 ;;PRIORITY LEVEL 1 

PRe= 100 s;PRIORITY LEVEL 2 

PR3= 14C ;;PRIORITY LEVEL 3 

PRY= 200 ::PRIORITY LEVEL 4 

PRS= 240 ;:PRIORITY LEVEL 5 

PRE= 309 S;PRIORITY LEVEL & 

PR7= 340 :;PRIORITY LEVEL 7 
TR TCH RR RISTER” SWITCH DEFINITIONS 

SWi4= 49000 

W1i3= 20000 

SWlie= 10000 

SWils 4000 

SWi0= 2000 

SWO9= 1000 

SWwOS= 400 

SWO7= 20 

SWO&= 10 

SwOoS= 

CwO4= 20 

SWwo3= 19 

SWwO2= 





MO-22-D2RIB-A, RPOYS“6 FORMATTTER PROGRAM 
OcRIB. Si BASIC DEFINITIONS 





SES COLE 
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11D 300902 : 
it sp5001 Syh= , 
it3 “EQUIV SWO9,SW9 ; 
133 -EQUIV §5wO8; Swe 

114 EQUIV SWO?.SW7 

315 EQUIV : 

116 QUIV c: 

i}° QUIV i; 

*33 EQUIV §wO3;SW3 

218 EQUIV SwO2; Swe 

ieC EQUIV SWO1,SW 

ie] EQUIV Swoo;Swe 

i=3 -#DATA BIT DEFINITIONS (8ITOC0 T9 BIT1S) 

134 gooco B1T1S= 100000 

35 840650 81T14= 40009 

136 8050 BIT13= 20009 

137 510609 BiTi2= 10000 

138 504000 Sti its 000 

23 652099 BIT1O= 2000 

136 501900 BITOS= 1000 

131 8954 BITo8= 400 

132 fa BITO7= 200 

133 Be0105 Bi Tob 199 

134 90954 IToS= 4 

i3s 00 BITO4= 20 

136 900619 BITO3= 10 

137 599904 81T0e= ¥ 

138 859992 SIT0l= 2 

i33 508561 BiT00= 1 

135 “EQUIV BITO9,BITS 

4] EQUIV BITOS.BITe 

743 “EQUIV BITO7,8IT7 

i43 -EQUIV BITOS;BIT6 

144 “EQUIV BITOS;8iTS 

45 “EQUIV BITO4; SITY 

748 “EQUIV BIT03,8IT2 

187 “EQUIV BITO2,8ITe 

148 “EQUIV BITOI;BITI 

45 -EaUl¥ §81700,8170 

ovw 

iS] -*BASIC “CPU” TRAP VECTOR ADDRESSES ; 

152 00: ERRVEC= 4 s;TIME OUT AND OTHER ERRORS 

163 009019 RESVECS 10 ; RESERVED AND ILLEGAL INSTRUCTIONS 
ish 000014 TBITVEC=14 33"T" BI 

1&5 699914 TRIVEC= 14 :: TRACE TRAP 

15& 000014 BPTVEC= 14 : BREAKPOINT TRAP (SPT) 

157 no0020 IOTVEC= 20 ::INPUT/OUTPUT TRAP (IOT) ##SCOPEss 
ie 06 PWRVEC= © : POWER Fal 

iss 000030 EMTVEC= 30 ;;EMULATOR TRAP (EMT) ##ERRORse 
160 000034 TRAPVEC=34 :3;"TRAP” TRAP 

16} 900960 TKVEC= 60 ::TTY KEYBOARD VECTOR 

1b2 000064 TPVEC= 64 ::TTY PRINTER VECTOR 

té3 60d240 PIROVEC=240 ::PROGRAM INTERRUPT REQUEST VECTOR 


ee ee ee ee we ee 








MD-11-DCRIB-A, RPC SES C017 


4. 
Der! 38.013 Bas! 
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v 


4 ; 

is ff RRRARRE RRA RA RESALE RARER RAL ARSRELER AAS AL AREF RASHES CLA RASRAF SASS 
18 
18? .SBTTL RH11 REGISTERS 
iss [JHE HEHEHE HEHE EHEEEA REE REA ESED FREES 44454 
171 :CONTROL AND STATUS REGISTER | (RPCS1) 
i273 } = RRUPT (BIT #6) 
53 RBASoO Rey: 300 NABY CBI T aoe 
175 500400 Alg= 400 inTGH ORDER BUS ADDRESS et (SIT #2) 
76 591900 al7= 1000 HIGH ORDER BUS ADDRESS SIT (SIT #9: 
ive 592600 PSEL= 2000 SPORT SELECT (BIT #10) 
178 c20000 MCPE= 20009 MASSBUSS PARITY ERROR (BIT #13) 
178 540900 TRE= 40000 i TOBNSFER ERROR (BIT #14) 
180 :$C= 100000 ; SPECIAL CONDITION (BIT #15) 

| 385 : WORD COUNT REGISTER <RPWO) © 
ig (EACH BIT IS CALLED BY BIT NUMBER) 
185 BUS ADDRESS REGISTER (RPBA) 
186 (EACH BIT IS CALLED BY BIT NUMBER) 

! 138 CONTROL AND STATUS REGISTER 2 (RPCS2) 
139 000991 uSIz 1 sUNIT SELECT (SIT #0) 
i$] so0c02 uSe= 2 :UNIT SELECT (SIT #1) 
193 500804 usds 4 :UNIT SELECT (BIT #2) 
133 900919 BAI= 10 BUS ADDRESS INCREMENT INHIBIT (SIT #2) 
194 900020 Pat= 29 !MASSBUS PARITY TEST (BIT #4} 

| 395 40 CLRe 40 !CLEAR (BIT #5) 

| tee 999100 IR= 100 : INPUT READY (BIT #6) 

| 167 09 OR= 200 :OQUTPUT READY (BIT #7) 

, 19 00 MPE= 400 : MASS PARITY ERROR (BIT #9) 

; 195 901000 MXF= ° 1000 :MISSED TRANSFER ERROR (BIT 89) 

| B95 902500 = ° 2000 :PROG (BIT #10) ; 

| 201 alata} NEM= ° 4000 :NON EXISTENT MEMORY (BIT #11) 

| B63 610000 NED= 10000 :NON ISTENT DRIVE (BIT #12) 

| 303 929690 UPE= 30000 UNI us PARITY ERROR (G17 813) 
205 949900 wees  4e000 - (81 #14) 

| 190008 OLT= 100000 DATA LATE (BIT 8 
eu 

| a7 :DATA SUFFER REGISTER (RPDS) 

£58 -  $CEACH BIT IS CALLED BY BIT NUMBER) 

| ely 

i 5if 
zi] $s RERERARERAERALALEERELAARELELARLALARARETALLLRAARAFARAERSSRALALAAG 
eis -SBTTL RPO4/S/6 REGISTERS 
zi 5 5 PRERRREREFAEARERDERRERSESRERAAERERERERRA ER ERASER EER EERE EERE ERE 
21? ;CONTROL AND STATUS 1 REGISTER. (#09) 
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3 RPOY'S-S REGISTERS 


CrerteTesfestestey 
Furr reye--e— 


4G3fu-Oww 


PUA aa 


tatters Coe OU 


tear 


morururorotu 
a) 


te 
a a st she 


mPa 


bib 


at 


Ay n ths Ad dd ede 


iar ss 


trurufutururury 


a ee. se er ce ee a ED 


GO= ! :GO BIT (BIT #0) 
Fis 2 :FUNCTION CODE BIT #! 
Fo: 4 “FUNCTION CODE BIT #2 
F3= 10 “FUNCTION CODE BIT #2 
Fu= 20 :FUNCTION CODE BIT #4 
FS= 4 :FUNCTION CODE BIT #5 
DVA= 4900 ;DEVICE AVAILABLE (BIT #11) 
sDRIVE STATUS REGISTER (RPDS!) (#01) 
-OFS= 1 DRIVE FORWARD S"/SEC. (BIT #0) 
bFF20= 2 ;DRIVE FORWARD 20"/SEC. (BIT #1) 
O1GB= 4 :DRIVE TO INNER GUARD BAND (BIT #2) 
GRV= 10 GO REVERSE (BIT #3) : 
b4= 2 s DIFFERENCE ESS THAN 64 (BIT 84) 
ls 4 :DIFFERENCE EQUALS 1 (BIT #5) 
Ws 199 : VOLUME VALID (BIT 96) 
4 c : 
R= 4 i RIVE Bernt (BIT #8) 
PoM= :PROGRAMABLE (BIT #9) 
LST= = 2009 “LAST SECTOR TRANSFERRED (BIT #12) 
= :WRITE LOCK (BIT #11) 
is 5c :MEDIUM ON-LINE (BIT #12) 
PIP= 90 POSITIONING OPERATION IN PROGRESS (BIT #12 
ERR= 490000 !COMPOSITE ERROR (BIT #14? 
ATAa= 180000 SATTENTION ACTIVE (BIT aS 
sERROR REGISTER #C1 (RPERI) (#02) 
f= 1 ;ILLEGAL FUNCTION (SIT #9) ! 
tlLR= 2 : ILLEGAL REGISTER (BIT el) ‘ 
RNR= 4 :REGISTER MODI CATION REFUSED <BIT #2 
PaR= ig : PARITY ERROR (BIT #3) 
TERz oe : FORMAT (BIT #4) 
WcFs 2 {WRITE CLOCK FAIL (BIT #5) 
ECH= = ECC HOR ERROR (BIT #6) aa 
= ; OMPARE ‘ 
chee HEADER CRC E (BIT #8) 
ACE= 1000 ADDRESS OVERFLOW ERROR (BIT #9) 
IAE= 2000 : INVALID SS ERROR (BIT #10) 
Hes 4000 s;WRITE LOCK OR (BIT #11) 
DTE= 10000 :DRIVE TIMING ERROR (BIT #12) 
OPI= 20000 ‘Belie ws INcon TE (BIT $12) 
CK= tpopHo ‘BR A CHECK mt Bit 15) 
;MAINTAINABILITY REGISTER (RPMR} (803) 
DMD= } ;DIAGINOSTIC MODE (BIT #0) 
as § reinreiegitiny fiees (a8 
MSTCKs 19 MAINTAENRBIC STV ane Re bok cart a3) 
MRD= 20 :MAINTAINASILITY READ (BIT #4) 
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eRJB-A, REOYS“6 FO MACYL2 27( 655) 
.Ul3 O4°S’S R 





MAINTATNABIL ITY WRITE. 


;ATTENTION SUMMARY PSEUDO-REGISTER (RPAS) (#04) 


: MAINTAINAS 

;DEVICE O (BIT #0) 
ve bit 
iBEViCE 5 (Bt #3) 
:DEVICE 4 (BIT #4) 
sDEVICE S eit 3S) 
:DEVICE & (BIT #6) 
:DEVICE 7 (BIT #7) 


;DESIRED SECTOR’TRACK ADDRESS REGISTER (RPDA) (#05) 
;(EACH BIT IS CALLED BY BIT NUMBER) 


;DRIVE TYPE REGISTER (RPOT) (#06) 


gasses 
AM Mmm memArmm A 
Braststststs443 

aaaAAaAaS 


S32 
@ i oom 
BS 
ai 


OO C8 el C8 8 8 68 OF Ot eee oe ae 


;LOOK-AHERD REGISTER ‘RPLA) (#07) 


Tt 4 14 14 1t \tenperperpeperpepetetetet $5 ¢5be4 


TUTUTIMO TOM 8 0 8 8 -+ 0 0-0-9 8 C909 
WCW - OWMONOM CW Owm eh 4 


;RPO4 ERROR REGISTER #2 (RPER2) 


Sossss 


ll . 

BEGGS 

RRSSS 

“- 
mumww 
CODED COMME 4444 
AAHHHO oO 


(#10) 





TY SYNC DE 


444 4 44-4 -4 
000 NOU £ tur 


#14) 
ADDRESSED (SIT #15) 


MO-1 
DERIB. 013 
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RPOW’S”S REGISTERS 


000901 


tee SRORRENT- SINK FATLUR ca a) 
wus 4 HURITE Se Pett Nene art #2) 

cSu= 10 s CURRENT SH SWITCH UNSAFE BIT #3) 
MSE= sD "MOTOR SEQUENCE ERROR (BIT #4) 
TOF= 40 ! TRANSITIONS DETECTOR FAILURE (BIT #5) 
TUF= 100 :T TIONS AFE (BIT #6) 

FEN= 200 *FAILSAFE ENABLED (BIT #7) 

WRU= 400 :WRITE READY E (BIT #8: 

MHS= 1000 :MULTIPLE HEAD SELECT (BIT #9) 
NHS= 2000 *NO HEAD SELECTION (BIT #10) 

IXE= co > INDEX ERROR (BIT #11) 

vuU30= 1 :30VOLT UNSAFE (BIT #12) 

PLU= 0000 *PLO UNSAFE (BIT #13) 

acu= 100090 :AC UNSAFE (BIT #15) 

;RPOS/6 ERROR REGISTER #02 (RPER2) (#10) 

weu= 1 sWRITE CURRENT UNSAFE (BIT #9) 
CSF= 2 :CURRENT SINK FAILURE (BIT #1) 
woU= 4 ;WRITE SELECT UNSAFE (BIT #2) 

cSu= 10 :C T SWITCH UNSAFE (BIT #3) 
RAW= 2 : WRITE (BIT #4) 

TOF= 40 : TRANSITIONS DETECTOR FAILURE (BIT 85) 
TUF= ; TRANSIT TONG UNSAFE (BIT #6) 

ags= 200 STOP (BIT #7) 

WRUs 400 :WRITE READY UNSAFE (BIT #9) 

MHS= 1000 :MUTLTIPLE HEAD SELECT {BIT #9) 
NHS= 2000 ;NO HEAD SELECTION (BIT #10) 

IXE= 4006 tINDEX ERROR (BIT #11) 

PLU= 29000 :PLO UNSAFE (BIT #12) 

:OFFSET REGISTER (RPOF) (#11) . 

OF2eS= 1 sOFFSET 25 MICRO INCHES (BIT #0) 
OFSO= :OFFSET SO MICRO INCHES (BIT #1) 

OF100= 4 : OFFSET 100 NICRO INCHES (BIT #2) 
OF200= 10 OFFSET MICRO INCHES (BIT #3) 

oreo: 40 OFFSET SED.MICRO INCHES (BIT #9) 

OFREV= 30 OF ESET Sette (REVERSE) (BIT #5) 

HCI= 2000 sHEROER COMPARE INHIBIT (BIT #10) _ 

30 is 4 : RROR CORRECTION CODE INHIBIT (BIT #11) 
MTe2= 1 :FORMAT BIT (BIT #le 
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;DESIRED CYLINDER BpORE SS (RPCA) (alg) 
;(EACH BIT IS CALLED SY BIT NUMBER) 


;CURRENT CYLINDER ADDRESS (RPCC) Calg) 
;(EACH BIT IS CALLED BY BIT NUMBER) 


;SERIAL NUMBER REGISTER (RPSN) (#14) © 
; (EACH IS CALLED BY BIT NUMBER) 









rise RPOY’S/6 FORMATTTER PROGRAM 
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RPO4’S”“S REGISTERS 


























8 


Bibictatsetsteteetststeietstatetstcts 
PRD ALE ALS foctest ot heel RTL td 


8 


sRPOY ERRUR REGISTER #03 (RPER3) (#15) 


woerT PREAD UR? TE (BIT #3) 


Ae L 
: SEEK INCOMPLE F (BIT #14) 
;OFF CYLINDER (BIT #15) 


;RPOS/6 ERROR REGISTER #03 (RPER3) (#15) 


o-~% 


;ECC POSITION REGISTER (RPEC1) (#16) 
(EACH BIT IS CALLED BY BIT NUMBER) 


;ECC PATTERN REGISTER (RPEC2) (817) 
; (EACH BIT IS CALLED BY BIT NUMBER) 


5 5 RERAAAALA EERE RAE EL AE RAL AE RAE LEAAALL LALA LERRREAAAELARLLALAPEERE 


-SBTTL RPO4Y/S/& DRIVER COMMANDS 


fp RERARAAAE ARERR A SELES AR ARARERER ELE LE LEE ERERREERAARELLLELTERE 


REED 
; RETURN TC CENTER LINE 
N PRESET 


= 0 bb bb bb 0 0 0 0 0 0 0 
NNOOUMNE £ CUM - O0D00 
GI GI GI UG) GI SUT = SUI 
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OZRIB.013 COMMON 
434 .SBTTL CUMMON TAGS 










435 
436 13H HHH EHH HEE 
437 t ETHTS TABLE yl VARIOUS COMMON STORAGE LOCATIONS 
nf : USED IN THE PROGRAM 
440 001100 -=1100 
441 001100 SCMTAG: 33 9TAR ART OF ida TAGS 
442 001100 000000 S$PASS: . 0 ; CONTAINS 
443 001102 000 STSTNM: .BYTE Q Sie THe res 
S44 001103 000 RFLG: .BYTE 0 
445 001194 900000 SICNT: .WORD OQ DBresT ff OOP AODRESS COUNT 
446 001106 00000 LPADR: .WORD QO contains 
447 001110 O00000 SLPERR: .WORD OQ 5 CONT alte 
448 OOll12 000000 SERTTL: .WORD 8 aNTAING Fora. ERROR 
449 001114 000 SITEMB: .BYTE H conTaL 
450 001115 001 SERMAX: .BYTE 1 ;;CONTAI AL ee esr 
451 001116 O00C00 SERRPC: .WORD ;;CONTAINS PC OF T NSTRUCTION 
des OO1ie0 o00000 GDADR: .WORD ;;CONTAINS ADDRES *G00D" 

OOllee 000000 S$SDADR: .WORD QO 3 ;CONTAINS SS OF *BAD’ DATA 
Be ee ar ae ear ee a 
456 901130 0000 WORD + ROC RVEB--HOT T TO BE USED 
m4 Botts 000 TOB YTE AUTOMAT ICATOR 
469 901135 000 SINTAG: .BYTE 0 23] NTERRUPT NODE INDICATOR 
460 901136 000000 0 
461 001140 177570 : -WORD OSWR + PORESe OF SWITCH REGISTER 
46e O0114e 177570 DISPLAY: .WORD DDISP OF DI Y REGISTER 
463 OO1144 177560 STKS: 177560 . 331TY KBC STAT xd 
464 O01146 177562 STKB: 177562 ;TTY KBD 
465 001150 177564 $TPS: 177564 any paren TATUS REG. prin 
466 001152 177566 STPB: 177566 R REG. Sa 
467 001154 000 .BY 0 ie oa OF FILLER os yee FOR TERS, Re 
468 OO11SS 002 SFILLS: -BYTE e cone ae ow QUIRED 
469 O01156 Dle SFILLC: .BYTE le NE FEED” 
470 001157 STPFLG: “BYTE 0 $s JNeER TNL "BVRILABLE FLAG (Bt terse =YES: 
471 001160 aie SCAPE:0 556 ON 
472 OOllbe 177 000377 SBELL: .ASCIZ Sarre ;;CODE FOR BELL 
473 OO01166 077 SQUES: .ASCI ;;QUESTION MARK 
474 001167 015 SCRLF: 23, Gs 3 AGE RETURN 
475 001170 o0001e2 SLF: .ASC <le> FEED 
426 a jj tenet ree retecncaeeneneal beeenenenaceneeneaneeseneennoes 

= 
478 000012 LF s 
479 001172 176700 -WORD 176700 ;RH11/RPO4/S/6 UNIBUS ADDRESS 
4e0 001174 SRPVEC: ms 4 EAHA INTERRUPT CTOR 
481 ppt eee 1725 CSR: . : S OF KW11-P C 
482 O01 17254 KCSB: .WORD 17254 sADORESS OF KW11-P COUNTER BUFFER 
483 001202 000104 O00106 SLPVEC: .WORD 104,106 s;ADDRESS OF KW11-P VECTOR 
484 STE Lean. nonioe ae. . WORD or ite ;ADDRESS ie ae REGISTER 
Be Oolsi4 000 DRIVE: “WORD OO CONTAINS ORIVE NUMBER SELECTED 

487 OOlel6 SOF SW: sCONTENTS ARE FOR SOFTWARE DECISIONS 





+: 

aw 
un 

aie 


NO-11-D2RJB-A, 
OZRIB.013 


Getenets 


UTI UII Us 
Pb 0 bs bs b 2 pe be me 
MONO U CWO 


SERS R om Voces 


umn 
m5 





obi see 


Oo1880 


pais 


aseee 


BSSSsssess 
REM R ER 


o 
£ 
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o ~~ 
. oOo 





OOOO VOOOCKOOOOO000--O050 


oOo 





0 


: .WORD 
WORD oe 
WORD 

"WORD 
~ WORD 
WORD 
WORD 
“WORD 
"WORD 
Bs 
WORD 
WORD 
“HORD 
WORD 
"WORD 












; FORMAT & VERIFY’ OR ’CHECK’ MODE INDICATOR 
sENOI YLINDE 
»STARTING CYLINDER 

TRA 


oo TRACK 

;TOTAL # OF TRACKS TO BE FORMATTED 

; TOTAL # OF TRACKS COUNTER 

;COUNTS TRKS_FROM 0-18 PER © 

;CONTAINS PATTERN SE 

31ST WORD OF PATTERN 

;@ND WORD OF PATT 

;STORE CYLINDER ADDRESS FOR FORMAT VERIFICATION 
;MAINTAINS # OF WRITE oe rrtes hs 


OR ON FORMAT 
OR REMAINING SECTORS ON ERROR 


CONTAINS WC F 
360 _0R 22 SECTOR SIZE (IN WORDS) 
BOS TONING ea WG FORMAT INDICATOR 
:20 OR 22 SECTOR NDICAT 
30 = 20 SECT 
:1°S = Be STOR HD 


MODE 
j MAXIMUM SECTOR ADDRESS (FOR EITHER 20 OR 22 SECTOR 
ADDRESS OF CURRENT CYLINDER 


aaa FOR "DRIVER 


‘ADDRESS. Ort “9 *C? RETURN 
;"CHANGE RH11 ADDRESS’ FLAG 


GISTERS STORED HERE AFTER AN OPERATION 


,: 
Fanos 4} 


BAR PRER ELE 


se 


Se Ce Se SS Se SF SF Se SF Oe Oe Ss Se Ot Se ws Oe ee we ee 


ae 
Pe 








VALUE OR FMT22,ECI, AND HCI 


_ gE? pee 

i og Sadie 

s | Bede 

cur & | 

St 3 

q@ 

is =f comers et 

2 ' Ramee ieee 
-: 


REO4’S/“6_FORMATTTER PROGRAM 
COMMON TAGS 


i a 


en aaa, 


tah hewn Kaen teat Rate Kae hem Keen Kook Kak Rok } 


5 poe 


Berd 


G 
YL 
»ENCTRK,O 


“18. BE 
18. 


;ASCII MESSAGES FOR ADDRESS PARAMETERS 


° 
, 


PARY 


;PARAMETER POINTER TABLE 
TABLE: PARI,O oe 


Te} 
ERS 
Bea 8 
gaa a 
ee: § 
% 


Li 
Be wal 


Borre yes 


ie Rood oe Roe oe Roo oe) 


88888888 


$ Ghihchihahtncn co MALARIA RGR RCAC ARAMA AGRO RRR RN 


o-m 
OM MUM TFT IND WA" 1-41 


SSSSSSSSSS SOS 


FEE rrr Rr Re eee 
VOOOOOOOOOOOU 


Minininintnintnintntathtty 
$$4$5$555555555 
aw RAs 
ee 


ane 
Aa AAR AARAAA 


PEPE St rir 


ae 
Savin aaloite 


B8888888sssss 


ee ee ae 


wee ne 









a 

Cece eceee SSSSSS SEES 
Sa 
eceacn a Cad baJ bashed 
eernouewsaneeeeeen 

MT WNOr@ —. br — Sez5 

2 SSS558555 Seas Haus posasccsasees 
y bint © SRRBRERRRRESSEEESEESTS 
$435$5$5555 sessssssssss 
S Besgsases  geceseceeseowumunenees 

2 sgesesess © bbpbebebee 

Dt siihciees . ducidtesseeseess 


SRRECERRCSRSRES 


YVYYYYYYY YY YY 
ttt etr+eet+ + tee ete + 


260 


+<260 


«260 
+<260 
+<260 
+<260 


+< 


260 
260 
260 


MACY11 27(655) 
BUF P+< 
E 
BUF P+< 
BUFP+< 
BUF P+< 


WORD 
LORD 
WORD 
WORD 
os 
WORD 
;REMRINING WORD COUNT TABLE 
WORD 
WORD 
WORD e260. 
WORD 
ORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 260 
WORD 
WORD 
WORD 


- EVEN 


COMMON TAGS 


59 001530 042300 


™ 


Cini }6=— RRR eee cea ! 


Se Kote Deoee ome Koen J Cts Rae een Rees Sonn ham Haren Scant Kaen Rees Rees eet oe ho a ho co oo oer coro) 


¥ 
S8ssss sssssssessssssassgsges 
a tatetoiatetetnto te be tebein teeta aN HN tata 


RPO4/S/6_FORMATTTER PROGRAM 


eee 
asec 


MO-21-C2RJB-A 


DZ2RIB.013 





‘5 


Fy 
os 


tory 


RI8-4, TERROR $ SAGER Tabs PROGRAM 


¢40-< 
~--t 
Gsa 


ry 
Clywewuus 
KOM new oC 


“Cd 


Crrrrrre 


tS. SS: 
4: Gstue 


MS 
(ue 


oe 
£Me-t 


re 


MACY 27°655) 





~SBTTL ERROR POINTER TABLE 


eTHIS Ms oF ONTATNS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
 eTHE INFO Nf OBTAINED BY USING THE INDEX NUMBER FOUND IN 
82587 on STTERS, HIS NUMBER INDICATES WHICH ITEM IN THE TABLE iS PERTINENT. 
;*NOTE M8 IS O THE ONLY PERTINENT DATA IS :fERRPC 
ENOTES: EM IN THE TABLE CONTAINS 4 POINTERS ETPLATNED gs |! 
7* EM ;;POINTS TO THE ERROR MESSAGE 
4 DM ;:POINTS TO THE DATA HEADER 
ha OT s:POINTS TO THE DATA 
:* OF s;:POINTS TO THE DATA FORMAT 
SERRTS 
sERROR 1 
EM) sRHILL INTERRUPT OCCURRED (Passo) 
* DH1 
OT! 
OF! 


sERROR = 


oocr 


sERROR 3 


ocdjom 
“Y- 42-2 
CUCIGI09 


sERROR 4 


;UNEXPECTED ATTENTION OCCURREL 


;MASSBUS FRRITY ERROR (MCPE=]) 


;MASSSUS PARITY ERROR (PaR=1 


SAODRESS PLUG CHANGE B17 SET 


sRH11 DION'T RESPOND TO AOCRESSING 








ee eg  EE———ee 






MO=11-DIRIB-A, REOY 5/6 FORMATTTER PROGRAM MACY!) 27(65S) 27-APR-76 17:59 PAGE 15 
D2aI8. 513 ERROR POINTER TABLE 
S87 OOlTD2 924536 Dib 
538 S0i7a4 O2S014 OF] 
530 ERROR 7 
B93 o17DS coD0ce 9 : UNUSED 
§93 §8i71c Ssoa900 5 
e943 OOici2 90000 5 
55. gaici4 dcocce C 
Pas sERROR 10 
£99 O017:6 o22402 EM1O SORIVE OFFLINE 
560 651720 23413 OHIO ) 
"Ol O0l7e2 Seys4d B5T10 
755 801754 S2s524 SFI0 
253 
74 ERROR 11 
(we 
756 001726 922429 EML} PERSISTENT DRIVE UNSAFE ER®OR 
75? 90:730 Oesui2 HIG 
758 OC173= 554545 6715 
705 O0:°34 Oés36 BF15 
| ai SERROR 12 
713 
| 253 o0:736 geass EMI2 SUNCORRESTABLE MASSBUS PARITY ERROR 
715 BSrSua 55473 HID 
| 335 SArdas “Soysus hots 
| PIB BOivas 585038 BFIC 
| zie SERROR 13 
| 93 oolree oppse; EM12 SOFTWARE TIMEOUT 
| 78: SBi7sn Goasi3 cuIo 
7ee UOl7Se UedS40 D710 
pea SCI7ES Castes oFio 
765 SERROP 14 - 
| 937 corse opzcue  oemay SDRIVE UNSAFE ERROR 
ee $079 Fes413 Hig 
| 980 BSiz7ee Beusks 7 
7a OO17E4 Oes034 OFC 
| 7a sERROR 15 
' ‘33 , 
735 OO17eE 02256 My CONTROLLER DRIVE ERROR CURING WRITE 
sae BRISS8 SeSai atts : 
PRE BSI77e heusan 6710 : 
73? OC1774 Dest34 oFic 
733 :EPROR It 


-_- -_——— ee + ee 





ed 
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ERROR SOINTER TABLE 
P41 O01T7 92263 EM! CONTROLLER DRIVE ERROR OURING WRITE CHECK 
4s 905008 D534 SH! 
“43 O5s002 954545 Br10 
44 002004 62503 BF 10 : 
YE 
ois ERROR 17 
oe 02006 203 aut SRETRIES NOT SUCESSFUL - SECTOR NOT ACCEPTASLE 
733 092510 92366. Hi? 
"SO 553512 54614 B71; 
751 952014 desfro OF I? 
re 
33 ERROR 29 
755 p0201$ 2278! Em20 ;DATA ERROR DURING WRITE CHECK 
73s 002520 923732 DHsO 
75? O5S0S= O34E26 5730 
75s GcS084 Ses0s4 tre 
rec sERROR 21 
‘Se 
7S OCS02$ 922017 EM?! ;CONTROLLER DRIVE ERROR VERIFYING HEADERS 
763 902030 923412 DH19 
765 393832 954549 DT10 
wee S034 925534 OF id 
| 26? ERROR 22 
768 
| 783 «cos036 923079 E22 HCE’ ERROS VERIFYING HEADERS 
' P70) «B85049 6993413 DHIS 
| Zeit O03048 e454 BTi0 
| 6778 «BOe044 9259 DF 18 
773 
| ga SERROR 22 
| ?2— 020% 9231397 EM23 CYLINDER FIELD IN HEADER IS NOT CORRECT 
77? OS95o 95453: BH>2 
| 778 QOSTES Deusih Tes 
| oe Gde054 Sescv4 OFe3 
La. Gag. sERROR 24 
783 Q0R0SE 929207 EM24 ;WRITE CHECK ERROR 
784 502065 624337 DHE4 . 
7e5 SCStee 54726 D724 
ee 655064 025190 OFE4 
cee SL EEERESEFRERESSERESASSSPREAHRELELASPARAHHARAALASAARARAAAS LP AAHLAS 
tte] 
73C .SBTTL MAIN PROGRAM 
23¢ ; jPELFEALERFHERELAFERARERELELELSLERAAALARAARASHRAAAAATLAHALARAL AT? 
7$3 CCS0E O12737 i777? COL202 BEGIN: MOY 8-1, CHGADR :SET CHANGE "RHI! BUS ADORESS' INDICATOR 


= _ Ce ee ee ee er ee eee 
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DIRIB. O13 MAIN PROGRAM 


? ar 99402 R EGINE OGRAM 
a3 elas ReRSe Brace 201392 BEGINI: RR, Ee ANe Ree tie OE "CHANGE RHLL ADORESS' INDICATOS 
"37 902192 900905 BESINe: T LEAR THE BUS 
238 SEITE, YNITIQUIZE THE COMMON TA &S 
> : :; CLEAR OMMON TAGS (SCMTAG) AREA 
865 oo2i04 c1270S 901100 MOV ascry AG, RE -FIRST LOCATION 70 BE CLEARED 
801 902110 905926 SLR (R6)+ CLEAR MEMORY LOCATION 
892 O0elie2 d3°;c5 902240 xp BSWR,R& ;;DONE? 
803 092116 90137 ENE = :;LOOP BACK IF NO 
54 odeiec 812796 001100 BSTACK, SP ::SETUP THE STACK POINTER 
| ss INITIALEE A FEW VECTORS 
85 902124 312737 906636 900939 #SERROR SRENTVEC sEMT VECTOR FOR ERROR ROUTINE 
So? 892132 512737 000340 Scc032 NOV #240 Suen NTVECS :LEVE 
868 602149 Olo737 912014 990934 MOV Hat - TRAP VECTOR FOR TRAP CALLS 
89$ 9802146 9512737 909340 900036 MOY POR RAPE CS ECs ative 
| 816 Bosisy O05037 01165 CLR pai REG R” THE ESCAPE ON ERROR ADDRESS 
| §1i S96166 112737 O00001 oor1:5 MOVB ALOU ONE ERROR PER TEST 
i; 812 ::SIZE FOR A HARD WeRDUARE. Suro gectiveR. F NOT FOUND OR IT IS 
813 >:EQUAL TO A “-1", SETUP FOR A SOFTWARE mie REGISTER. 
S:4 902186 O13746 o20004 MOV ta aeRever -(SP) ;;SAVE ERROR VECT 
SiS 902172 012737 O8e226 oocno4 MOV abas SHERRVEC ::SET UP ERROR CeCTOR 
| 816 O08206 912727 iF?S7o OO114O MOV :;SETUP FOR A HARDWARE SWICH REGISTER 
| 8: O002068 O12737 177570 dO:i4e MOV sbi pisPcay !AND A HARDWARE DISPLAY REGISTER 
818 Delis Oee77? 177777 L7EPIE oMP #-] ii TRY TO REFERENCE HARDWARE Sik 
, 819 9002332 ooiole ONE et 33BR NCH IF NO TIMEOUT TRAP OCCURRED 
| SEO D HARDWA SUR IS NOT = -! 
| Bei o02224 oo04o3 . se ae : }BRANCH IF NO TIMEOU 
eee soeeet O1271& 902224 b48: Hoy a65$, (SP) ::SET UP FOR TRAP RETURN 
| §34 002234 012737 o00176 ocO114o §S$: MOV BSWREG ::POINT TO SOFTWARE SWR 
| B85 08842 O1e737 Ooci74 Ode - MSV so1sPReC, RISPLAY 
ee O02250 O12637 Oo03004 eS: MOV (SPi+,aatRRVEC ;:;RESTORE ERROR VECTOR 
/ 828 OG2254 D005 RESET CLEAR WORLD 
| 825 000256 012737 ocooe4o 000036 MOV SPRS, 28TRAPVEC+2° = SHA AP PRIORITY BACK TO S 
| 836 002264 012737 909240 900932 MOV ; PRS’ SaeNTVEC +2; CHANGE MT RBRIORE Ty Back TOs 
' 831 0038372 012737 og2076 051300 MOV BEGINI.CNTL NTROL C’ ADDRESS 
«832 «002300 005227 1777 INC — Far START 
' = 833: 002304 1018 ea B _ Reagtl eee on 
S35 Guests i i Gedsisc 1 sik ibe ADRS OF *TITL LF" MESSwGE 
602312 122737 O90511 ccoo4 CMPB 141 :LOADED FROM AN RPO4S/6 ? 
| 836 O02329 4S0100e ONE $ :BR IF NOT 
ee. Odesee D440! oesers TYPE yim Ma teow one gS *xXDP* 
829 902326 904737 O10e04 | 18: JSR :TURN ON THE KEYBOARD INTERRUPT 
aug 3 “SSTTL GET vie “Ee se TuaRe SWITCH REGISTER 
841 002332 005737 900042 TST SARE WE RUNNING UNDER XXDP “ACT? 
B42 902336 091006 BNE page tT BRANCH IF 
843 002340 023727 OO1L4C OOCI7E CMP SwWR, sSWRES ; + SOF THARE sui CH RES SELECTED? 
g44 092 6 oci0cs BNE 58$ :BRANCH IF NO 
645 O52250 1044 GTSWR GET SOFT-SWR SETTINGS 
S46 992352 009402 QR 68s 
84? 502354 112737 O000Cl OO1i24 78: Mov 81, $AUTO ::SET RUTO-MODE INDICATOR 
B42 S053é2 683: 


MO=11 
DoRTB.O 
8 


493 
0 
Sl 

ss: 


8$2 
854 


RA a sida Rat Atti 


coo cococo Tm 
a 


cm 
Sotoltainde! 


Je 


Cees SR RENEE 


ee 
13 


002362 


RPOY-S6 FORMAT 


veeege 


O2s434 
ce 


020703 
Oleled 


012130 


020553 
029574 
020532 
020611 
020543 
020705 
O206e21 
000001 
020626 
O000Ce 
Cz0633 


001167 


TTER PROGRAM 


176476 


F997 
é c 


002622 
012130 


002622 
012130 


002622 
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GET VALUE FOR SOFTWSRE SWITCH REGISTER 


INC -1 s CHECK FOR FIRST START 


:BR I NOT 
!CHECK THE RH11 ADDRESS 
MOV SRPADR,RPADR §:RHI! ADDR 

MOV SRPVEC.RPVEC § :RH11 VECTOR ADDRESS 


s DISPLAY DRIVE STATUS AND SET UP THE OTHER UNITS THE 


SETVEC: 


es: 
3s: 
4$: 


S$: 
6$: 


73: 
es: 
9$: 


LINSSP 
TSTB - BRVSTACRS) 


PROGRAM WILL USE _ 
TSR PC, ST.CLK> =“ START T 


C 
J5R PC’RPINIT | SINT TTAL TSE +ae* RPO4/S (6 DRIVER 
MOV . el. SAVEFG :SET THE SAVE REGISTERS F 
INC ; SEE IF FIRST STA 
BEG tg YES 
BIT #5402, aSWR TYP Phot DRIVE STATUS TABLE ” 

_ MOV PR? PS 'SET PRIORITY TO 7 
CLR RY :DRIVE TABLE POINTER 
TYPE ,$CRLF :CR=L 
TYPE  ‘SYSTAT TPE STATUS HEADING 
MOV RY, -(SP) ;;SAVE RY FOR TYPEOUT 

33 TYPE RIVE 
TYPOS | GO YPE--OCTAL ASCII 
.BYTE 33 TYPE 2 DISIT(S) 
"BYTE OO :: SUPPRESS LEADING ZEROS 
TYPE : SPACES 


:CHECK DRIVE’S STATUS 
AFE 


BMI :BR IF UNS 
BNE S$ :BR IF ONLINE ‘ 
TSTB = ORVTYPC(R4) :SEE IF OFFLINE OR NONEXISTENT 
BEQ 25 :BR IF NONEXISTENT : 
BFL 35 3BR IF OFFL 
YPE NOTRP DRIVE NOT AN RPOW/S/“E 
BR “SCHECK NEXT DRIVE 
TYPE NOTPRS SORIVE NOT PRESENT 
Bree UNTOFF SATE RET . 
aR PRINT DRIVE. TYPE 
TYPE NOTSAF !DRIVE UNSAFE 

bs is NT DRIVE TYPE 

NLINE 


YPE ‘LINSe 
YPE 


no 

a 
pr 
wm 


: SPAC 
V cose, 8s jROORESS QF RPOY MESSAGE 
giTe ik ORVTYP(RYS 


8 OES 

MOV BR Ode sS OF RPOS MESSAGE 

8172 idee BRvTyp: R4$ —:RPOS ? 

BNE ;BR'IF YE 

MOV #RPO6, 8S ADDRESS OF RPOS MESSAGE 

TYPE TAPE THE DRIVE TYPE MESSAGE 

WORD 0. MESSAGE ADDRESS HERE 

TYPE SCRLF =LF 

INC ae i chevent DRIVE NUMBER TABLE POINTE 











OO O00 
-OW 


Re areata et er ta 
’ 0 b-< 0 - bb & + bp oe 
GV COWDNIOUI LGU 


Be uae 


Shee 


aaah se £AE She RA 


Pie 


003020 
USUCE 
003080 
003034 


003054 
CO2962 


OC396 
093072 


020427 
001312 
1O44O1 


- (Je-- 0 
~ 
eo 
= (0 0-= 9-< ps 


012737 
005937 
905037 
012737 


RPOY-S“& FORMATTTER PROGRA 
GET VALUE FOR SOFTWARE SuITCH REGIST 


980010 
C9118? 


O012e0 
Celiei 


009103 
000106 


MAC Yh 27(65S) 27-APR-76 17:59 PAGE 19 
CMP R4, #8. sFINISHED ? 
BNE BR IF NOT 
108: YPE  ,S°RLF :CR-LF 
:SEE WHICH MODE THE PROGR M IS TO BE RUN IN. 
MODES ARE: ‘FORMAT & VERIFY’ OR ’CHECK FORMAT’ 
MI; CLR MODE :SET MODE TO "CHECK FORMAT’ 
Tipe , MMODE -TYPE "PROGRAM MODE’ 
ROLIN ° ‘READ THE KEYBO 
MOV (SP)+,Ri :GET ADDRESS OF 
TSTB ss CR) :* CR! ENTERED DEP AMIT) 
BEQ g ‘BR IF YES 
CMPBo#C, (RIL) :*CHECK’ ? 
BEO 1$ ‘BR IF YES 
CMPB) so F ERI) : FORMAT’ ? 
BEQ :BR IF YES 
TYPE $QUES :NO CORRECT ENTRY 
BR hl : TRY AGAIN 
1g: TYPE MHECK :TYPE REST OF *CHECK’ 
gR 1A :GET STARTING ADDRESS 
23: TYPE HEORMT {TYPE DEFAULT MESSAGE 
BR 43 :SET UP MODE 
3$: TYPE RORMAT : TYPE REST OF *FORMAT’ 
33: MOV b-1 MOD :SET MODE TO ‘FORMAT & VERIFY’ 
;FIND OUT IF FORMAT IS TO SE IN 20 OR 22 SECTOR MODE 
MIA: TYPE ,MSIZE : TYPE FORMAT MODE REQUEST 
ROLIN :READ THE KEYBOARD 
MOY SP) RI :ADDRESS OF ENTRY 
CMPS ¥, (RL) -1S ENTRY A ‘Y* ? 
BEC is. :8R IF IT IS 
CMPBsagN, (RL) :IS ENTRY A ‘N’ ? 
BEQ 23 ;BR IF IT 
TS) (RL) :OEFAULT MODE ? 
EQ 1$ 8 IF IT IS 
YPE SQUES ; 9° 
oR Mia RY AGAIN 
18: TYPE TSE C22 :TYPEOUT MODE SELECTED 
MOY «260. #22. > WC s TRACK SIZE IN 22 SECTOR MODE 
MOV #-<260. #o2.3 MWC’ : NT WORD OE OUNT 
MOV #-1,SEC2 re CTOR fn CATOR 
MOY 21, HAXSEC X SECTOR ADDRESS IN 22 SECTOR MODE 
2s: PrPE MSEC20 i¢ 20 SECTOR MODE SELECTED 
MOY aecstO a8. S"muc’ no's CORBLENENT GERD COUNT™ 
aut! e eo LU 
CLR 58 s2h’secton INDICATOR 
MOV #19. , MAXSEC :M CTOR ROORE IN 20 SEC 
MIE: CLR BEGTRK ;CLEAR STARTING TRACK ADORESS 
CL BEGCYL : CLEAR GINNING CYLINDER ADDRESS 
MOV 818. , ENDTRK :SETUP END TRACK ADDRESS 














eee 
DcRIB.913 


973 903156 


2 
icicisie 
aISERS 


barre 
£vo 


eR 
oe 


951 003254 


: 


RPOY’S-& FORMATTTER PROGRAM MACY 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


013737 99092 9p12H0 
Lisa, Terres BLS 


006116 
001112 
01920 


19204 
0206S” 


006426 


001214 
920701 
001166 
001214 


ae 


021067 
012130 
020762 
021007 
001214 
001214 
000632 


001239 
001224 


00135 


001300 


001354 
001354 
001222 
012130 
001222 


27(655) 


MOV 82, PATSEL 
Ove rl, FMTDPB 


:G0 FIND OUT WHAT DRIVE 
MO: MOV #OENTER, CNTLC 
SERT 


27-APR-76 





i7:59 PAGE 20 


3 TUP FOR WORST C 
TUP TA dO - 
BRANCH TO S 


noroenr’ 


5 CONTROL C ABORT ENTRANCE 


CLR i RROR ACCUMULATOR 
JSR PC STKINT aa THE TTY KEYBOARD 
TiPE ,MUNIT :ASK FOR ORI NUMBER 
ROLIN sREAD K' 
MOV (SP)+,R1 SADDRESS OF ENTRY 
ISR RS, CK:CHR > CHECK C 
33 ‘TLLEGAL CHARACTER 
23 ;CARRIAGE RETUR 
es tee 
45 :DIGIT 0-7 
33 :DIGIT 8-9 
28: CLR DRIVE SELECT DRIV E ZERO 
TYPE MDRV :60 TYPE REF AU DRIVE NUMBER 
BR q :G0 SEE IF DRIVE ZERO IS THERE 
38: TYPE SQUES :TYPE °?? 
BR :ASK FOR DRIVE NUMBER AGAIN 
4$: MOV R2, DRIVE : SAVE DR ve NUMBER 
TST Re :SEE I VE 0 
ONE :BR IF NO 
CMPB sal, 41 ;PROGRAM LOADED FROM AN pe4/S. ? 
BEG :BR IF IT CAN'T FORMAT THE DRIVE 
S$: JSR PC, ST.CLK sSTART THE CLOCK 
J5R PC’RPINIT :60 SEE uta T DRIVES ARE AVAILASLE 
MOV saa 1 , SAVEFG ;SAVE THE REGISTER 
MOV #-1°SEEKFG :SET °NO OPTIMIZAT TON’ FLAG 
SLR : SET PRIORITY BACK T ZERO 
*S78 = DRVSTAL Re) :LOOK AT DRIVE STAT 
BGT 85 :BRANCH IF ONLI 
BEQ es ;9R IF DRIVE NOT AVAILABLE 
TYPE MUSDR : DRIVE E 
BR ho :G0 GET DRIVE NUMBER AGAIN 
6S: TSTB. —- ORVTYP(R2) :A DRIVE PRESENT? 
BNE 7g :BR IF SO 
TYPE MDRNP :TYPE "DRIVE NOT PRESENT” 
BR ho :G0 GET DRIVE NUMBER AGAIN 
7S: TYPE MERI] ; DRIVE NOT AVAILABLE’ 
BR He G0 GE VE NUMBER AGAIN 
QS: CMPB IVE,FMTDPE § ;SAME DRIVE AS LAST TIME ? 
BEG :BR IF IT IS 
MOV DRIVE, EMTDPB s SETUP ORI ADDRESS 
MOV ENDCYL TUP FOR 45 
BITB SBT TORT BT TOL sDAVIER) jSEE IF DRIVE RPOY’S 
BNE 95 BR IF EITHE 
MOY e814. ENDCYL ; NDING CYLINDER.FOR RPOS 
98: CLR —- BEGTRK Scar STARTING TRACK ADDRESS 
CLR BEGCYL :CLEAR STARTING CYLINDER ADDRESS 


ewe ee ee 


SES C032 





0+ 0 b> 9-9-2 9 - 
it rt Stetetetat spate Se a4 


WM OWM~IW US GItue- 


oy 


fo 
“I 


retinas 


Oo 
£ 


FEE 
Wrur-O 


BRARSS SEAS 


<£ 


0 0s bo he 0s he te a 2 bs Bo 2 bb 2 0 0 02 8s bs 2 & 9 00 bs 2 0 Bs 0 § 2 b-0 Po  o h 2 b= 9-0 2 ho hs 0-0 bo ho 
—~Ow 


oo 
caro 


020710 
006236 
001leee 
001226 


02145& 


021560 


006426 


021669 
000062 
000092 


001165 
001249 


006136 
001220 


021673 
021730 
001214 


001167 


RPO’ SG FORMATTTER PROGRAM 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 


para? golzee 9 
Bas 


NOCYL, TA RATA S MIT FOR 


EBC, TABLES | NTRY LIMIT E Br craih _ 
DRESS LIMI 


:GET ADDRESS LIMITS 


Me: 


1$: 


es: 
3$: 
4$: 
;G0 TYPE ° 





;SETUP TOTAL TRACK COUNT FOR FORMAT 


TADR ; ENTER ADDRESS LIMITS” 
pen PARENT GET THE ADDRESS LIMITS 
ENOCYL, BEGCYL SEE IF ENDING CYLINDER EQ TS ST THAN BEGINNING 
;BR IF HIGHER 
os :BR IF LESS 
ENDTRK, BEGTRK BEE F ENDING TRACK EQ OR GT THAN SEGINNING 
MADRER INVALID ADDRESS ENTERED 
ho TRY AGAIN 
DATA PATTERN FOR FORMAT 
,MSELP ;GO TYPE *SELECT PATTERN’ 
sREAD THE KEYBOARD 
(SP)+,R1 SENTRY ADDRESS 
RS, CK.CHR :CHECK ONE CHARACTER 
‘ILLEGAL CHARACTER 
;CARRIAGE RETURN 
:DIGIT 0-7 
:DIGIT 8-9 
MPATD : TYPE DEFAULT PATTERN 
#2, R2 :WORST CASE PATTERN 
4§ :G0 SAVE PATTERN 
R2, #2 :IS ® LARGER THAN 2 
4§ :BRANCH IF NOT 
SQUES s TYPE "9? 
Ay ;RETYPE LINE 
R2, PATSEL :SAVE PATTERN SELECTED 


STARTING FORMAT ON DRIVE N’ 


#TYPADR, CNTLC eS tc ‘hy - 
MODE * OR °C * MODE ” 


‘aR i if 
pero ;TYPE "STARTING FORMAT ON DRIVE N’ 
,» MSCHK ; TYPE "STARTING CHECK ON DRIVE N° 


DRIVE, -(SP) $358 IVE FOR TYPEOUT 
tig gt he: ASCII 


+ OPE suPprese T(S) 
: ss CE AOING ZEROS 
. SCRLF :AgUP R-L 


oO~ 






N L 
S FROM THE OPERATOR 








$2 > < Pb -- P= Hs p = He 
—C.0 


220000 
Nw 


~ 
“Jj 


ooo 


oN Patt Pr 


rvs) 


Besse IRR ERE SS 


oQo000 
28 


BRR 


0-2 Ob 0 = = = es = 0 0 = 8 0 bb bb: 0 0 0 bb bo 0 bb bo = op = Fo pe — 9 fh p= 
BOVE LOW Ow 
cs 


0 0 b= bb bb 8 0 0 0 = DD 


— 0 = 0 2 oe 
OnNOU CWE O 


001222 
001226 
001230 
001232 
001222 
001224 
001226 
001230 
000023 
001232 


009023 


025 
o01242 
001644 


» RPOWS/6 FORMATTTER PROGRAM 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


001224 


001232 


001232 


001232 
001232 


001232 


001232 


001240 


OC124e 
001244 


001355 


001356 









SE3 0034 
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CKADRS: CMP ENOCYL,BEGCYL ;STARTING AND ENDING CYLINDERS THE SAME ” 
BNE ; BRANCH IF BEGCYL NOT EQUAL TO ENDCYL 
MOV ENOTRK, TTRKS R 


ACK ADD 
BEGTRK, TTRKS SUBTRACT THE STARTING TRACK ADDRESS 





SUB 
INC —-TTRKS ; MAKE THE NUMBER OF TRACKS INCLUSIVE 
QR SETPAT sSETUP THE DATA PATTERN 
18: MOV —«ENDCYL, Re ENDING CYLINDER 
SUB _ BEGCYL; Re :SUBTRACT THE STARTING NG CYLINDER 
MOV ENDTRK;TTRKS © ;CALCULATE THE RESIOUAL TRACKS 
SUB BEGTRK'TTRKS = SUBTRACT THE STARTING TRACK 
BPL so :BR IF ENDING TRACK’ GREAT-* 
ADD  —«- #19. TTRKS CORRECT THE VALUE 
DEC —-_- Re. ;COUNT THE PARTIAL TRACK 
23: INC —- TTRKS — THE NUMBER INCLUSIVE 
38: DEC =OséRe !DECREMENT THE CYLINDER COUNT 
BMI SETPAT :BR IF 
ADD —« #19, TTRKS :ADD CYLINDER WORTH OF TRACKS 
BR 38 : CONTINUE 
THIS CODE SETS UP THE SELECTED DATA PATTERN TO BE WRITTEN ON EACH SECTOR IMAGE 
SETPAT: CLR PATA CLEAR DATA PATTERN A 
CLR PATE - :CLEAR DATA PATTERN B 
TST —~ PATSEL ;SEE IF PATTERN OF ONES 
BEQsS SO 
COM PATA SET PATA TO ONES 
COM —«~PATB :SET PATB TO ONES 
CMP «#1, PATSEL :SEE IF PATTERN OF ZEROS 
BEQ : H IF SO 


i 
MOV #165555, PATA ;SET UP WORST CASE 
MOV #133333, »PATB saeT UP WORST aa 


1S: MOV SET UP C 
MOV #BUFP, RO :SET UP MEMORY POINTER 
MOV PATA,RI :SET UP PATTERN IN R 
MOV -SET UP PA 
2s: MOV R1, (RO)+ *MOV IST PAT INTO MEM 
MOV Re; (RO)+ “MOV 2ND PAT INTO MEM 
DEC R3 KEEP COUNT 
DEC R3 KEEP COUN 
BNE 2 DO IT SRA IF R3 NOT C 
; THIS CODE SETS UP FOR THE ACTUAL FORMAT 
WRTRK: JSR PC, SETTBL ;GO SET UP DRIVER TABLE 
JSR PC’ SETHOR GO INITIALIZE HEADERS IN THE SECTOR SUFFER IN CORE 
MOVB #20. FMTDPB+1 ;LOAD FNTee BIT 
TST SEC20 :18 BIT, MO MODE ? 
BNE is iB 
SLRB MTDPB+1 LEAR THe FMT22 BIT 
1$: MOVE  s#SETFMT,FMTDPB+2° FORMAT’ COMMAND 
25: JSR RO, RPOW’ stant HE COMMAND 
FMTDPB : DPB 





ADDRESS 
BR es . QUEUE FULL RETURN 





eeagses 


rr 
SINS CROMEESRN PS cS 


vs) 


b= Db b+ > — & = Hb b= = b= 0 fh Pp pe 


Firetree pest 
pn ie ae 


Om GE oO OO UT LUO OD NO LEU ODD ION Leo 


> +b b— b= 0 b= b= b= b= bb 0 = FF -= 0 - be bb 0-0 0 8-2 = 2 B= 2 2 9 9 ho Bo b+ ps po 9-2 & 2 b= Ho ho 


SIN 
Tue 


RPO4/S/6 FORMATTT 
GET VALUE FOR S 


104010 
104011 


R PROGRAM 
TWARE SWITCH REGISTER 


33: 
WRTRK1: 
C 


B 
WRIRK2: 

M 
1$: 


2s: 


3$: 
4$: 


CKTRK: MOVB 
MOV 
1$: 


es: 


3$: 





MACY11 27(655) 
FMTDPB+16 

MWC, FMTOPB+4 
BBUEP, FMTDPB+6 
OTR 

au THD ExTOPes2 


HetacK cp 
0,RP 


1$ 
FMTDPB+16 
2s 


= 
WLWM-OM 


PC, 
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4$ 
#3$ , SESCAPE 
RINOX 


LOP.CK 
8, RETRY . 
RETRY 
1$ 


SESCAPE 
RETRY 


;CHECK THE TRACK JUST WRITTEN 

a FMTOPB+2 
SLPERR 

astAack cp 

RO, RP 


















ie UNL ADS 


O THE eros COUNTER 


T 
;RESTORE BA 
3 FORMAT” OR *CHECK’ MODE ? 
;BR IF ’CHECK’ MODE 
itl. wei ag 28 & DATA COMMAND IN TBL 
Me Poon ADDRESS 
:PGAD STACK 
360 FORMAT A TRACK 
OF PARAME TBS - a 
WAIT FOR QUEUE IF _F 


ae FOR kg TO MCOMPLETE 
ONE 


;OR 

PERSISTENT OR re: UNSAFE ERROR 

; UNCORRECTABL f fEsoeus PARITY ERROR 
SOFTWARE TIMEOU 


DRIVE UNSAFE PRROR 
; DRIVE/CONTROLLER ERROR DURING WRITE 
OP ON THE ERROR ? 


ZERROR RETRY LIMIT ? 
ACHE 


AGA 
rT ERROR ESCAPE ADDRESS 
ce THE RETRY COUNTER 


eaoera a 

; MENT CTOR 

ADJUST SECTOR T i ONE That FAILED 
ESCAPE TO 10S RROR 

BEF WIC WHICH RROR 

DRIVE OF 

t PERSISTEN IVE UNSAFE ERROR 
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I 
SCAWC : SETUP pe ee REMAINING SECTORS ON THE TRACK 










DZRIJB.913 GET VALUE FOR SOFTWARE SWITCH REGISTER 
1173 004342 194012 ERROR 12 ; UNCORRECTABLE MASSBUS PARITY ERROR 
1174 ONS 104013 ERROR 13 | SOF THAR E TIMEOUT 
1176 350 Agaoi3 040000 001314 IT MICE, RP. REG+RPCSS ORT TRITE CHECK ERR ERROR ? 
1177 904256 001005 | BNE 4 F SET 
1178 004360 033727 001320 BIT RP. REG+RPERI (pels “CHECK FOR DATA ERRORS 
1179 004364 130620 .WORD ODCK!OPI!DTE!HCRC tHCE! FER sDATA ERROR BITS 
1180 004366 001001 BNE 4s F SET’ 
1181 004370 104016 ERROR  CONTROLLER/DRIVE ERROR DURING WRITE CHECK 
1182 004372 005737 oo1220 4g: TST MODE FORMAT OR CHECK MODE 
1183 004376 001407 BEQ S$ BR IF CHECK 
1184 004490 905737 oD1216 TST SOFSW ;RETRYING THE SECTOR ? 
1185 OO04404 001404 BEQ R IF NOT 
1186 OO4406 012737 OO%b12 001160 MOV #118, SESCAPE ESCAPE TO 11$ ON ERROR 
1187 OO4414 104017 ERROR SECTOR NOT ACCEPTABLE 
1188 004416 005037 001160 S$: CLR beccape ‘CLEAR THE ERROR ESCAP: ADDRESS 
1189 oOO4422 032737 O40000 001316 BIT #ERR, RP. REG+RPDS! sDATA ERROR ? 
1190 004430 001002 BNE 6$ "IF IT IS 
1191 O04432 104024 ERROR 24 WRITE CHECK ERROR 
1192 OO4434 401 BR zs 5 CONTIN 
1193 O04436 1 6$: ERROR 2 DURING WRITE CHECK 
1194 OO444G 013701 001252 7$: MOV SAVSEC,R PA aILING SECTOR RODRESS 
1195 OO4444 113737 ODleS2 001364 MOVB SAVSEC; PHTDPB+10° CTOR ADDRE 
1196 oo44S2 006301 ASL RI . SETUP SP TROEX Tb 5 ADDRESS WORDS 
1197 bowed 016137 O01476 001362 MOV BDRTBL (RL), FuTppive, :BUFFER ADDRESS FOR FAILING SECTOR 
119e 013746 001260 MOV MWC, (SP) T MAXIMUM WORD COUNT VALUE (2°S COMP) 
1199 OO4466 066116 001552 ADD WCTBL (RL) (SP) BoD WORD COUNT THROUGH FAILING SECTOR 
1200 oow7e O1eb37 001254 MOV (SP)+, SAVIC ; STORE WORD COUNT FOR REMAINDER OF TRACK 
1201 76 37 O0le2c0 TST MODE ;FORMAT OR CHECK MODE ? 
1202 oo4s02 Ool4eL BEQ 9S 
1203 OO04504 Ole 177374 001360 MOV 8-260. , FNTDPB+ 4! FOR 1 SECTOR 
1204 004512 005237 001216 INC SOF SW s INDICATE THAT A RETRY IS IN PROGRESS 
120s OO4516 116 IMP WRTRK2 i. CTOR 
i 1216 gS: TST SOF SW TRY iy PROGRES 
1207 OO4S26 001431 BEQ 115 
1208 Dove 30 goo002 001216 CMP #2, SOFSW See IF LAT RETRY 
1203 1 BEQ 9 BR I 
1210 O04540 001216 INC SOFSW NCREMENT RETRY COUNT 
1211 oowes 44 BR 1$ i, 
1212 001266 001364 9S: MPB = NAXSEC, FMTDPB+10' IF LAST SECTOR ON THE TRACK 
1213 OO45S4 001416 BEQ 11 F IT 
004555 737 

1215 004562 005037 SOF SW CLEAR 

1216 OO4565 d00633 BR 1§ NISH CHECKING ott TRACK 

1217 904570 004737 005334 10$: JSR PC, LOP. CK :CHECK FOR LOOP ON ERROR 

lel pove74 37 000003 001250 CMP #3; RETRY ERROR RE ? 

lel o01403 7 BEQ 118 3BR IF : IS 

1220 OO4604 001250 INC RETRY *COUNT THE RETRY 

eel Oo¥e19 go0bee BR 1s DO THE WRITE CHECK AGAIN 

1222 1 001160 11$: CLR SCAPE Ste THE ERROR RETURN ESCAPE ADDRESS 

1223 004616 005037 001250 RETRY -C BR THE RETRY COUNTER 

lees 004622 036777 174310 ON CURRENT TRACK ? 

¢. 

1226 ita atte NO4060 eR JF Not AGAIN ON THE SAME TRACK 
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D GET VALUE FOR SOFTWARE SWITCH REGISTER 


001160 


001372 


001246 
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12S: JSR PC, TRKTST ;GET UPDATED TRACK AND CYLINDER ADDRESSES 
BR HDOREAD ;RETURN HERE IF DONE - DO QUICK CHECK OF DISK 
' JMP WRTRK1 CONTINUE WITH THE FORMAT 


;THIS CODE MAKES SURE ean ig i FORMATTED CONTAINS THE 
PROPER CYLINDER ADDRESS i We. OGRAM IS LOOKING FOR 
; POSSIBLE POSITIONER ERRORS THAT MAY HAVE OCCURRED DURING THE FORMAT. 


HDREAD: CLR HEDERR ;CLEAR HEADER CHECK ERROR INDICATOR 
JSR PC, SETTBL 560 SET UP DRIVER TABLE 
JSR . PC SETHD :GO SET UP HEADERS IN CORE 
MOV BEGCYL,CYLCK; *BEGCYL’ FOR FORMAT VERIFICATION 
MOV FMTDPB+4 =; WORD COUNT 
MOV #RBUF . FMTDPB+6 sSET U UP BUFFER ADRS 
CLR DPB+10 “CLEAR THE SECTOR & TRACK ADDRESS FIELD 
MOV BEGCYL,FMTDPB+12° ;SETUP THE CYLINDER FIE 
MOVB F ;SET UP READ HEADER & DATA COMMAND 
MOV 4 :SETUP LOOP ON ERROR ADDRESS 
MOV aStack, SP ;LOAD STACK POINTER 
1S: JSR RO, RFOY 60 READ HEADER 
FMTDPB ADRS TBL 
BR 1$ *WAIT IF QUEUE IS FULL 
23: TST FMTDPB+16 :WAIT FOR COMMAND TO COMPLETE 
BEQ FL} "BRANCH IF NOT DONE 
BPL 4§ BR IF NOT ERROR 
MOV #5$, SESCAPE : jESCAPE ol? S$ ON ERROR 
JSR PC, ERINDX ;SEE UH ERROR 
ERROR 10°. ORive 0 OFFLINe 
ERROR 11 PERS STENT DRIVE UNSAFE ERROR 
ERROR 12 *UNCORRECTABLE MASSBUS PARITY ERROR 
ERROR 13 :SOFTWARE TIMEOUT 
ERR 14 “DRIVE UNSAFE ERROR 
BIT stC C<dCE> , FNTDPS+16 . S ONLY ERROR A HEADER COMPARE ERROR ? 
ERROR 21 CONTROLLER/DRIVE ERROR VERIFYING HEADERS 
3S CLR SESCAPE ;CLEAR THE ERROR ESCAPE ADDRESS 
ERROR 22 ADER COMPARE ERROR VERIFYING HEADERS 
JSR PC, LOP. CK CHECK FOR LOOP ON E 
4g CMP , BUF *SEE IF CYL READ EQUALS CYL EXPECTED 
BE 6$ :BR If CYL CORRECT 
RROR 23 :CYLINDER NOT CORRECT 
cS: JSR PC, LOP. CK sre FOR OR LOOP ON ERROR 
6$: CMP ENOCYL, CYLCK SEE IF LAS YLINDER 
BNE 7§ BR IF NOT F RISuED 
IMP SEOP iB OF FORMAT 
7S: INC CYLCK : INCREMENT CYLINDER ADDRESS BEING CHECKED 
ISR PC. UPDACY :SET UP FOR NEXT CYL 
INC FMTOPB+12 “ADVANCE TO NEXT CYL # 
BR 1S GO READ NEXT HEADER 


-SBTTL END OF PASS ROUTINE 


TTT CTTTTTTTTETTTTTTTTTTTTTTETTTTTTTESTTTCTESTETTSTSTT STC TT TT 
? EINCREMENT THE PASS NUMBER ($PASS) 























eS isistieiatitoss 
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SyRes 





cistiintalatstainiotstataisistatssataiats 


whi 
OZRJB.013 


=te 
tf 


SINSTOOROMOSRRE EER REBS 


ne 


END OF ee ROUTINE | 


001220 

021764 
201 

001112 
001167 


001100 
100000 


oo004e 


000001 


003116 
001100 
003526 


001372 
001372 


001372 


001100 


173722 
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;*IF THERES A MONITOR GO TO IT 
;*IF THERE ISN’T JUMP TO DONE 


SEOP: 
TST MODE ;*FORMAT’ OR ’CHECK’ MODE ° 
BEQ 3$ *BR IF *CHECK’ 
TYPE MFCMPT PB das COMPLETE’ 
BR ag “FINISH THE END MES 
23: TYP »NCCHPT 5 CHE K C9 ’ 
4g: TYP. NUMERR :*TO RR TECTED: ’ 
MOV geRTIL ~(SP) };SAVE SERTTL FOR TYPEQUT 
TYPDS $3 CIMAL ASCII WITH SIGN 
TYPE SCRLF 
INC $PAS tS INCREMENT THE PASS NUMBER 
BIC #100000, SPASS DON. T ALLOW A NEG. NUMBER 
DEC (PC)+ : LOOP? 
SEOPCT: .W 
BGT SDOAGN 5 YES 
MOV (PC)+,a(PC)}+  }3RESTORE COUNTER 
SENDCT: .WORD 1 
$EOPCT 
SGETY2: MOV a#42, RO ;;GET MONITOR ADDRESS 
BEQ SDOAGN : BRANCH IF NO MONITOR 
RESET -CLEAR THE WORLD 
SENDAD: JSR PC, (RO) 5300 TO MONITOR 
NOP 3;SAVE ROOM 
NOP OR 
_ NOP :ACT1I1 
SDOAGN: 
a(PC)+ ; ; RETURN 
SRTNAD: .WORD DONE 
DONE:. BIT #SWO, ISWR ;SEE IF SWR 9 SET 
BNE 1 iBR IF SET 
IMP K FOR NEXT DRIVE 
1S: MOV #STACK, SP RESET STACK POINTER 
JMP MS *DO THE FORMAT OR CHECK AGAIN 


5 MRI R RRR EEE R ERE EEE EE EE EEE EERE REE EERE 
-SBTTL SUPPORT SUBROUTINES 
5p RRR R REE ARERR RAE EKER EE REE HERE REESE REEL EER EERE EE 
; THIS ROUTINE DETERMINES THE ERROR TYPE 
ERINDX: MOV R1,-(SP) ;STORE Ri 

CLR RI’ 


EAR R 
BIT FMTDPB+16, (PC)+ *: CHECK KT ERROR TYPE 
“WORD “\idobigneig| -DRIVE OFFLINE 


BNE $ BR IF OFFLI 
I MTDPB+16,(PC)+ ;CHECK ERROR TYPE 
.WORD BITl2 : DRI PERSISTENTLY UNSAFE 


BIT FMTDPB+16, (PC)+ | mE BS ERROR TYPE 








i3i5 


us 


tartare RMT RIMT RT RT RT NadGSEId 
. rf . - 4 
n eee ee? ee that at 


Fart 


is a ad Tt 


“333 eG 
Wwr-Ow 


WIG II GIy) 


Saar outs 


co 
tu 
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& FORMATTTER PROGRAM 
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COisve 


001372 


001234 
cOoG2e 
301236 


O1.£ GJTue- 
RiNMMMH 
o~ 
= 
cy 


ROUTINE TO 
LOP.CK: SIT 
5 


1§: 


§: JMP 
$: 


qr 
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BITLIIBITIO Fag Rr a PARITY ESROR 


:BR IF 
Zaropg+i (PC) :CHECK ERROR TYPE 
g1T0stBr Tos : SOF THARE TIMEOUT ’ 
FMTOPB+16, (PC)+ : CHECK K ERROR TYP YPE 
B1704 :OR IVE UNSAFE TE or ” 
R} : INCREMEN THE RETURN INDEX 
Ri : INCREMENT THE RETURN INDEX 
RI ! INCREMENT THE RETURN INDEX 
R] : INCREMENT THE RETURN INDE 
Q! SINCREMENT THE SETUSN INDEX 
RI :OOUBLE THE INCREMENT 
R1,2(SP) ‘OEVELOP THE RETURN ADDRESS 
(SP)+ RI ;RESTORE Rl 
pe : RETURN 
CHECK FOR LOOP ON ERROR 
8SWO9, ISWR i008, ON ON sprPOR ? 
JSLPERR 60 TO a LOOP ON ERROR ADDRESS 
SESCAPE es : CLEAR ts ERROR ESCAPE ADDRESS 


MTOPS+1 ; CHECK E 
gitiwelviststtiel Brvioeet¥ou : FATAL’ ERROR BIT 
aE, RP. REG+RPER! sHRITE LOCK ERROR ” 

SEOP :TERMINATE THE FORMAT 
PC RETURN 


;THIS ROUTINE SETS UP THE INPUT TABLE FOR THE ORIVER ROUTINE 


SETTBL: Hove 


DRIVE,FMTOP8 #§ ;SET UP DRIVE 8 
FMTDPB+3 


LR :CLEAR HIGH SRDER ADRS SITS 
MOV MWC, FMTOPB+4 = LOAD uP WORD COUNT 

MOV - aBUEP FNTOPE+G ;LOAD UP CURRENT ADRS 

CLRB. NTOP +10 :SET SECTOR TD aE 
SBvB - BEGTRE: MTDPB I STEP Ip CTARTING TRK ADRS 

MOV BEUC YL{FMTDPB+l2 ;SET UP STARTING CYL 

CLR MTDPB+16 s CLEAR REOY STATUS 

MOV BEGTRK TRKCNT :SET UP PARTIAL SYL TRACK COUNT 

MOV RKS, TTRK :SET UP TOTAL TRACKS COUNTER 

RTS ‘RETURN FROM SETUP 

sTHIS ROUTINE CONTROLS THE ISK ADDRESSING AND TOTAL TRK COUNT 
-IT IS ENTERED AFTER EVERY TRk OPERATION 
TRKTST: DEC TTRKSC ;SEE IF LAST TRACK 

BEQ ; :BRANCH IF LAST TRACK 

CMP #18. , TRKONT -1S THIS THE LAST TRACK IN THE CYLINDER ° 
BEO ‘ :BRANCH IF SO_ 

INC TRKENT ‘COUNT UP TRACK WITHIN CYLINDER 
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001365 
O0S7 12 


001082 


1$: CL 


Gifu 


;THIS ROUTINE SETS UP _WC 8 BA FOR REMAINING SECTORS - 


MACYLL 27(655) 


$: ADD 
$: 





po reed 
, UPDATK 


TR RKCNT 

EMTOPB+11 
FMTDPB+1le 
PC, UPDACY 


Bes (SP) 
- PC 


AFTER A WRITE CHECK ERROR 


SCANC: MOV 


THIS ROUTINE SETS UP THE CYLINDER ADRS, FORMAT BIT 
ISECTOR AORS IN MEMORY WITH THE STARTING CYL - TRK tnECREAT tN 


SETHDR: MOV 
MOV 


;THIS ROUTINE UPDATES THE — ADRS OF THE HEADER WORDS IN CORE 
T UP 
ET UE RESOER SSTNTER IN RO 
ae FOR NEXT CYLINDER 
Ss 10 
= UP_FOR NEXT HERCER 
ETSB? Last sector 


UPDRCY: iy 
MOV 
1$: INC 


ad FMTDPB+4 
VFMTOPB+6 


Fppee 0 


BECTRK: RS 
SECeO 


#10099 Re 
2, (ROi+ 


RS: {RO}+ 
cR 


MAXSEC,R1 
TEOPB SAG 

(RQ)+ 

- V4 Ny (RO) 
#518. .R0 

i 

PC 
sTHIS ROUTINE UPDATES THE TRACK ADRS OF THE HEADER WO 


mm ee ee e+ ee ee Sin ete Es a ll as ae, Ch 
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; INCREMENT TRACK NUMBER 
we TRACK ADDRESS IN BUFFER 


: E ER NUMBER 
ob Tie CYLINDER NUNEER IN SUFFER 


eet e WC FOR REMAINING SECTORS 


3R UNTE 
RETURN TO COMPLETE TRK FORMAT 


SET COUN 
;SET UP READER BOINTER aes RO 


a “For ohext HEROER 
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» REOYS 6 

SUPPORT SUSROUTINES 

913701 901268 UPOATK: Muy MANSEC Rl SET UP SECTOR COUNT oy RO 

Baesen Oost Tey URNS Bb] wt Hee GER P ate 70 TRK - SEC GORE 
? goose i$: ADD £400, (RO) : INDEX, T 
i p ADD #520: .R OP e FOR NEST HEADER 

60530! DEC RI : COUNT 
372 3GE 1§ :BR BNCH IF NOT LAST SECTOR 

00920° RTS Po sEXIT 


;ROUTINE TO CHECK FOR KWli-L OR KW11-P CLOCKS 





312737 006020 900004 ST.CLK: MOV BSTCLK1, JWERRVEC iSET uP VECTOR FOR P CLk 
605037 900006 CLR JBERRVEC +2 NEW P 
005777 173216 TST JSLKCSR : CHECK FOR KW11-P 
O:374 001202 MOV SLPVEC, -(SP) ; VECTOR ADDRESS 
912776 OO0&8104 oocco0 MOV BCLOCK, a(5P) T UP KWII-P VECTOR 
71§ 900002 ADD 2 :POINT TO PSW 
bierse 900300 . MOV aPRE,9(SP)+ PSW = PRI 6 
Ole77? l?r7?? 173170 MOV #-1, O$LKCSB {LOAD COUNTER BUEFER 
12777 000135 173166 Hoy 1136 & 9SLKCSR :SET CLK - CNT 
062706 000004 =.= STCLKI: ADD agp SRESTORE THE STACK POINTER 
Olevse 006070 odcca4 MOV Be, DeERRVEC CHANGE ERROR VECTOR 
77 173150 ; TST asl sLOOK FOR K 
01374 601210 MOV fant -(SP)  - 3KW11-L VECTOR “RODRESS 
012776 006104 socno0 MOV BcLOCK.a(SP)  :SET UP KWII-L VECTOR 
062716 op0002 ” ADD #2, (SP} : INCREMEN NT VECTOR ADDRESS 
01273 MOV wPRE, aCSP)+ BRI 
Ole7v77 900109 173120 MOV #190; a$LKS ‘tet KWIi-L INTERRUPT ENASLE 
poc4oe2 BR TCLK3 
662706 oOcCo04 — STOLK2: ADD #4, SP sRESTORE THE STACK POINTER 
012737 000006 socee4 STcLk3: Mov 86 JBERAVEC :RESTORE THE ERROR VECTOR 
806287 RTS PC 
:THIS CODE SERVICES A CLOCK INTERRUPT EVERY LEMS 
912746 ocg020 CLOCK: MOV ais. sPUT MILLISECONDS ON THE STACK 
AOs727 OLe4Es JsR PC, RbTHE -G0 REPORT TIME 
dtcod2 RTI ZRETURN AND CONTINUE 
sROUTINE TC INTERCEPT “CONTROL C° TYPED DURING PARAMETER ENTRY TIME 
012706 001:00 OENTER: MOV aSTACK, SP : INITIALIZE THE STACK 
606737 Cleléo 1$: TST TRNSWT ALL act Wity STOPPED ? 
| 001375 BNE 1g 
; ji go98 RESET BR EAR THE BUS 
ee. 060137 9030¢ IMP MIB :START AGAIN WITH DRIVE SELECTION 
| 349] ;ROUTINE TO TYPE THE PRESENT DISK ADDRESS. ENTERED BY TYPING ‘CONTROL 2° 
' 3483 0061326 O0S037 177776 TYPADR: CLR PSW :SET PROCESSOR TC PRIORITY 9 
| 1488 006142 912737 006116 901300 MOY sOENTER, CNTLC ; CHANGE "CONTROL C’ RETURN ADDRESS 
| 4M9S OOBISS 10480: 922065 TYP ,ADDRIS t PRESENT ADDRESS IS: 
23S (COBLES «6iDHHD! 6Ceters TYP fi 





MD=11-D2R78-A, RPOY SG FORMATTTER PROGRAM MACYL! 

OzRy8.013 SUPPORT SUSROUTINES 
1497 006180 O13746 001366 MOY 
i498 O0¢164 oN 3¢ 511470 I5R 
1365 Doeisy loswai Ose705 38 
i3Re nae ahah iat ee TYP 
1502 Oo8204 cosO CLR 
1503 906206 113716 001365 OVE 
1505 O06Si2 OON737 11470 758 
1555 006516 04737 911430 JSR 
1508 OOesc2 10440; 00118: TYPE 
1507 Ho96226 Ole7s? O06i3ss 201300 Mov 
1508 06234 300002 RTI 
i505 
ts 
isil 5 
tei3 : MOV 
‘5:3 ; JSR 
i515 
1515 008236 10346 PARENT: MOV 
i538 906240 912703 901374 MOV 
15i7 Oo0e544 Oip327 Soe>s4 18: MOV 
1518 O062SG 01435 REQ 
1515 O06252 104401 TYPE 
1529 oo6254 Ocodo0 38: “WORD 
1521 908256 O12202 HOV 
1582 906260 010305 MOV 
1523 O05262 911546 MOY 
524 OO6264 1O4408 TYPOS 
1525 S0s266 104401 o20671 TYPE 
1526 OO0S272 104421 RDLIN 
i527 Oo8e74 012601 May 
1528 06278 O05 3” 008590 isk 
135 Besa 43 
ee Be : 
t235 Bpests §Boesss e 
1534 006214 0063 ? 
1535 006316 010215 53 Mov 
te35 Boeses eset oer 6s Pipe 
4 f ba +4 1 
23, Goesse tee7as Soacse og 
1539 006332 44 BR 
1540 OO6234 010215 73: MOV 
E41] 8063 403 aR 
1E4S 606340 012703 001374 95: MOV 
1543 906244 000737 BR 
1eHs Doeeie Cleet3 9s: MOV 
e45 006380 00 a RTS 
1547 
1Eue THIS ROUTINE IS USED 
1E46 A 


+ te CHAR 
;CA 


iso ; 


27(6SS) 


ACTER IS 


ae ee ee ee ee 
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27-APR-76 
;PUT THE CYLINCER amas ON THE STACK 
;SONVERT IT TO DECIMA 

TYPE IT 

: SPACES 

CLEAR THE STAC 


THE TRACK RODRESS ON THE 
art IT TO DECIMA 


FMTOPB+12, -i SP) 

Pc, $82 

PC’ SSUPRS 

LINSP 

-(SP) . 

FMTDPG+11, (SP) STACK 

PC, $S$820 

PC SSUPRS :T 
S¢RLF :CR-LF 

BTYPADR, CNTLC RESTORE ENTRANCE TO THIS ROUTINE 

sRETURN 


:PARANETER ENTRY ROUTINE 
Li 


8ADR, R32 ;PARAMETER TABLE ADDRESS 
PC, PARENT !GET THE PARAMETERS 
R3,-(SP) :SAVE R3 
ees 83 :PARAMETER TABLE ADDRESS 
3)+, 38 : ADORE S OF PARAMETER NAME 

: BR F AT END OF LE 

: TYPE THE PARAMETER NAME 
R3}+,8 OES Reece ca ee EXT 
(R3}4+,R ate RC OF PaRAPE TER 
(R5),-( SP) CORRE GALUE OF PARAMETER 

TY PE THE CURRENT VALUE OF THE FARAMETES 
SLASH 
(SP}4,R1 TET "ASciy Stein STRING ADDRESS 
RS,CK.DIG CHECK THE DIG 


ETE CRS ENTERED 


31 
; TERMINATED WITH “*teetien RETURN 
eta uth 


R2, (RS) iN HOVE NEW VALUE 18 PARAMETER LOCATION 
wie: MORE PRRANE TERS 

iesks ese THE TABLE POINTER 

Re, (RS) eu veut 

sTABLE,R3 sRELOAD, THE PARAMETER TABLE ADDRES 

(SP)+,R2 : RESTORE R3 

pe : RETURN 


0 CHECK IF AN 
IGIT 


T C 
0 BETWEEN 0 AND 7. 








NO-12-OCRJ8-A, 
OCORIB. 913 


iss4 


0 + 0+ b= 0 0-- 0 29-9 0 
(PM dw’ Oe UnUianiinia 


TI BBSVRR 
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SUPPORT SUSROUTINES 
: Noy peon, Ay * sADDRESS OF ascll rSHARACTER 
: CK.0CT 
: Pe oRNt :CHECK THe 13 No “EETUEEN 0-7 
; RETURN CHARACTER IS IN Re AS A 
; :OCTAL DIGIT 
121127 00060. CK.OCT: CMPB - (R1),#°0 ;LESS THAN ZERO? 
10340; BLO 1$ :YE BR 
lelie? 000067 CMPB Ss (R21) #7 : GREATER THAN SEVEN? 
101904 BHI 1$ :YES -- BRANCH 
111152 K MOVB  (R1),R2 ;GET THE CHARACT ER 
Me?de 177770 BIC atC7'Re :STRIP AWAY THE ASCII 
0905725 TST (RS)+ :ADJUST FOR RETURN 
9902 1$: RTS RS * RETURN 
sTHIS ROUTINE IS USED TD CHECK AN ASCII CHARACTER 
BNO DETERNINE IF Iv 1S A DIGIT BETWEEN 0 AND 9. 
: MOV #ADR,R1 sADDRESS OF ASCII CHARACTER 
: JSR RS, CK. DEC !CHECK THE CHARACTER 
a RETURN :NOT BETWEEN wi 3 
: RETURN2 :BETWEEN O 
; :Re = DIGIT 
121127 go00sa CK.DEC: CMP8 = «(R1}, #0 ;LESS THAN ZERO? 
103497 BLO :YES -- BRANCH 
tell27 coo0o71 CMPB (R11), 89 :GREATER THAN NINE? 
101 BHI “I YES -- 
111192 MOVB  (R1),Re GET THE ¢ CHAR ACTER 
042702 900060 BIC "6 Re :STRIP AWAY THE ASCII 
905725 TST RSS+ :ADJUST FOR RETURN 
02920 18: RTS RS : RETURN 
: THIS ROUTINE WILL CHECK AN ASCII CHARACTER TO 
: DETERMINE WHAT IT IS. 
: MOV BADR, R1 ;ADDRESS OF afScxt CHARACTER 
: J5 RS, CK. CHR ;CHECK CHARAC 
: RETURN ADRI :LINKNOWN C aeT E 
: TURN ADR2 SRORRI RETURN * (RL}=ADR+! 
: RETURN BOR3 :COMMA * (RI)SADR+1 
: TUR RG : PERIOD . CR 1) =A) 
RETURN ADRE plait Ber THEEN 
; pact IT # Bed, 
105711 CK.CHR: TSTB (RL) :"CARRIAGE RETURN”? 
O141? BEQ 33 YES ~~ BRANCH 
-lel127 000s4 CMPe ~=—s«(R1) w", :” " 
001413 BEO 2s :YES == BRANCH 
1127 op00sé CMPB)Ss«(RRL Dw. "PERIOD"? 
1407 BEG iE =- BRANCH 
4537 006409 ISR RS, CK.DEC “OIGIT"? 
o09419 BR a3 :NO == BRANCH 


ee a ee ee 
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Lt +p 9-6 re Eure C 


COOrrwrorw 


Rate 
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RRR RRR AT *0— 0 = b= » = 6-2 9 = 9-2 po 9 Bo 9 pe pie pe 


Rao 


eel bed del Sed oeel od end 
Crrrww ake 

pe age vi EES 
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SUPPOR 
004537 


FORMATTTER PROGRAM 


SUSROIUTINES 


005352 


O0&4es 


COb426 
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: THIS ROUTINE CHECKS AN A 


t} 


Ck. OIG: 


3$: 


4$: 


ee ee ee 


;CHRARACTERS AND FORMS A D 
VALL 


wADR, RA 
#NUM 


RS cke B16 


ADRS 

RY, -(SP) 
R32; -(S$P) 
Re. -( SP) 
R2 

R3 
RY 

RS, CK.CHR 


#4,R5 
R3, -( SP) 
Ra 


R3 
£3P)s.R3 
RS‘ CK. CHR 


(RL) 
8 


(R4)¢ 
(R4)+ 
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;OCTAL ? 
BYSHT BETWEEN 8-3 
;PERIOD 


;CARRIAGE RETURN 
;MOVE POINTER TO NEXT 
;UNKNOWN CHARACTER 


CHARACTER 


TRING FOR LEGAL - 
VALUE SINARY NUMBER IN R2. 


e; 
ov 


id 


:"COMMA™ 


eK OiclTS 
;"CR" ONLY ENTERED -- R2= 
;"PERTOD™ ONLY ENTERED -- R2=0 
; bb ire. “pag OE INPUT TU0 LARGE -- &2=? 


: ADDRESS Bony ASCIZ_ STRIN 


TUDE OF INPUT NUMBER 
2=0 


-- Re = ate 
NUMBER 


:"PERTOD” -- Re = 
;SAVE RY 


;SAVE R3 
SAVE THE MAX. SIZE ON THE STACK 


START WITH 9 


GIT 0-7 
tee RET iAN Po 
MBE 


ATE” 
ee 
LLEGAL_ CHARACTER 


HEC 
LLEGAL CHAR 
RE 


INTER PAST “CR” $ 
R #2 


#10 
HE INPUT NUMBER 
NE CHARRCTER 


TAGE RETURN 


NCREMENT THE RETURN 
CREMENT THE RETURN 


“PERICO™ RETURNS 
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o 
Od) 


RRR to 
fort ad ~Joru 2 osteo 


0-26-02 pe 


1683 


1697 


VOT 
HB3B 


RAPER 


&S 


0 + <0 8-2 9b ~~ b+ b+ po & 2 2 § -0 o - 


NNNAINS 
0 -e-¢9 
f-OwWw 


RPOY 5’ 


SUPPORT 


atoig? 


Be 


3 


FORMATTTER PROGRAM 


SUSROUTINES 


Oo 
Oo 
- =< p< pp pe 
Ww at 4 fu 
— ae 
Oo oO 


tS 


8 8888 sess 
B BR 


8 
& 


+— b= 
oe =b-- 
— 


000002 
O26088 


ae 


MACYL! 27<¢655) 


S$: TST (R4Y)+ 
OMP R3, (SP) 
“y a 

$$: Fe, on 

7$: TST iRS)+ 

8$: ADD R4Y,RS 

3$: MOV R3,Re 
TST (SP)+ 
MOV (SP)+,R3 
MOV (SP)+,R4 
MOV ( 5), 85 
RT 

.SBTTL MACRO ROUTINES 


.SBTTL ERROR HANDLER ROUTINE 
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pa Ne Ne RAGNIYUDE e on tA NUMBER 
F ENT ERED NUMBER ARGE 


YPASS INCREME 
i ae T RETURN PAST INVALID RETURN 
INCREMENT 

Re TURN TORINTER 

BET RED V 

: CLEAN MAX. SIZE OFF OF STACK 
: EST R3 
;REST RY 
;GET RETURN ADDRESS 
RETURN 


° 
’ 


5 RHKSRSRAELARELRERELELELLAEAELA LALA LARELALERLSLALFLAALFLALASEAESE 


Oe EOP a Se 


NE 
et etrtce "OPTIONS PROVI 
7 #SW1S=1 HAL R 


T THE ERROR FLAG AND THE ERROR COUNT, 
M R AND THE ADDRESS OF THE ERROR CALL 


BY THIS ROUTINE ARE: 


;;ERROR=EMT AND N=ERROR ITEM NUMBER 


; TEST FOR C IN SOFT-SUR 
ADORESS IF DRIVE ERROR CALL 


aa ae WHICH DION’T COMPARE 


te TO 
Bet on Test Fog, J cRRE FLAS 


La ql a 
+ EP ROURESS OF RROR INSTRUCTION 


ti BIREP of Tid Ga ERROR ITEM CODE 


seo 351 IniBTT ERROR TYPEOUTS 
:#5WO9=1 LOOP ON ERROR 
; #CALL 
;* ERROR N 
— CKSWR 
MOV R1, DORI :SRIVE_ ADORE 
MOV R3, ATTN 
V FMTDP8+12,DS.CYL’ ; 
MOVE $ FMTDPB+11.05.TRK” ; 
3 RP . REG*RP ey 
Rov Re. F -REG#RPBA, (SP 
MOV sc8Pie, $GDDAT 
7$: INcB 
MOY STSTNM, QDISPLAY : 
BIT aglT 10, aSWR 
: NC 
- poy oe ser 
RR 
at a PC rere 


(me a me ee eee eee 


;;SKIP TYPEQUTS 





+ 0 6 9 bo 
“INI 9" 9-II 
0 = b— 0+ po pe ao 
Oww yours coe 


fu 


J 3-39 


rururururorure 
“IM UE GIN 


we 


uv 
vs) 


i 


+ > &— 0 -< b+ b—< & = &- - 8 — §-<— B -< 9 &— § -~< §--< 9-0 9 


Soe ban bos ba Pas Pa Pat ds batt Pat 


ab tr tet 


oo= 2 
—-T 
LO £ 
woo 


2 


: 
e 
-_— 


2B8 
é 


oO 
- 
Be 


Re 
Re 


oO 
_— 


pishikisickiish 
CHE UOF MOR LD 
BoB 


007044 
001167 


172132 


777 901000 


001110 
001160 


001160 


001114 


001626 
007104 
001167 


007122 
00i167 


001167 
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ERROR HANDLER ROUTINE 


IsR_ PC, TYPERR 5;G0 TO USER ERROR ROUTINE 
agg, TYPE SOR 
5§:| TST  aSuR ::HALT ON ERROR 

BL (ité(S HiSKIP TF CONTINUE 

HALT 

CKSUR ‘ety FOR CHANGE IN SOFT-SwR 
38: BIT” ag1T09, asi 11 LO0P_ ON ERROR SWITCH SET? 

MOV —«SLPERR, (SP) STFUDGE RETURN FOR LOOPING 
4: TST SESCAP ape i ;CHECK FOR AN ESCAPE ADDRESS 
* MOV -«-SESCAPE, (SP) + PN OGE RETURN ADDRESS FOR ESCAPE 

‘ RTI ; ;RETURN 


% BYTE” {SITEMS) TO_DETERMINE 
THEN OBTAI NS, FROM THE “ERROR 


:THIS ROUTINE USES ‘T ONTR 
TO IT 
THE APPROPIATE INFORMATION 


s WHICH H ERROR IS 
TABLE" (SERRTB), A 
CONCERNING THE ERROR 


iELERR' RO FOR ERROR NUMSER 


MOVE SITEMB,RO ;ERROR NUM 
ty Mt ;FORM INDEX FoR ERROR TABLE 
4 R 

RO 


ASL 
18: ADD #SERRTB RO 


M ¥ (R0)+,28 SEL RRrOe Se RESSace Cem gpg inTER 


EE. , SCRLF : "CARRIAGE RETURN - TLINe ‘Ecer 
2S: WO 0 :"EM" POINTER GOES HERE 
3s: MOV (RO}+,4$ :PICK UP DATA HEADER (DH) POINTER 
EQ c$ : BRANCH 
Wee , SCRLF :CARRIAGE RETURN-LINE FEED 
45: .WORD O “DH” po NTER Rriaaie HERE 
5s: MOV (RO}+,R1 :P PICKUP BTA TABLE (OT) POINTER 
BE 205 
CLR RE ‘aie 
MOV (RO)+,RO TA FORM NAT SOF) MPOINTER 
MOY (RO)+.Re TO TY 
BEG 12s SEARCH. iF OH NUMBER I 
T SCRLF LINE FEE 
10S: nove {RO)+,R3 creaac sae 76 PPE 
MOV (RO)+;R4 Nut HOW TO T 
118: ROR RY OCTR! OR CINAL * 
BCS 128 : sDEC THN. BRAN 
MOV diR1)+,-(SP) $3 (RL)+ FOR TYPEOUT 
TYPOC ::G0 TYPS--OCTAL ASCIT(ALL DIGITS? 





ISS 


“J 
Sa 


2 


Be 


2 


R2SSeSeR 


RRS 


vs) 


O— & + b-< 6 6 f= 9 <b > = & 2 b— b= 6 -~- b= b § = 9 9 9-2 9 pe -- 
ee 


0+ bb 0 0 = 
MMOwoowowojwwma 
OwWWONOUM CWO 


fo 
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12$: 


138: 


14S: 


1S$: 
168: 


21s: 


175: 
208: 


-S8TTL TYPE ROUTINE 
; LERERERER ERAS EEE EEE EEE ELA AE RE RERE EE ER EEE EEE REREREEEE ES EEE EEEE 
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HaNOTES: 


;#CALL: 
#1) USING @ TRAP INSTRUCTION 
TYPE  ,MESADR 















13$ 
3(R1)+, -(SP) +3 SAVE a(R1)+ FOR TYPEOU 
::G0 T yPE--DECINAL BS asctl Tam SIGN 
MORE NUMBERS 
145 :NO--BRANCH 
LINSP :YES--TYPE SEPERATORS 
11g LOOP 
Re ;MORE DH’ S? 
208 NO--BRANCH 
SCRLF ;YES--START | A NEW LINE 
2° RO) YA’ THIS REQUEST 
1S$ eR IE YES - BYPALE THE THGENT 
15$ :NO--BRANCH 
LINSP s YES-< TYPE SPACES 
{RO)+, 168 ;GET NEXT 
‘AND TYPE IT 
: DH POINTER, GOES HERE 
(RO) ‘TY "DT” 
21$ :BR IF " oT’ 
#4, RO :INCREMENT THE ’DF’ POINTER 
14$ :SEE IF END OF ’DF’ 
SCRLF :CARRIAGE RETURN-LINE PEED 
RS : INDENT? 
10$ : NO--BRANCH 
iano :YES-~TYPE SPACES 
RESTORE RO-RS 
PC : RETURN 













NULL C E 
AINS T HARACTER 19 BE USED AS THE LER CHARACTER. 
sritts CONTA The Rune FILLER CHARACTERS REQUIRED. 

LLC GONTAINS T RURRACTER TC FILL AFTER 











;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 








STPFLG 3318 aS TE TEs A TERMINAL? 
HAA HERE IF NO TERMINAL 

3$ ; ;LEAVE 

RO,-(SP) VE RO 

d2tSP),RO :GET ADDRESS OF ASCIZ STRING 












te) 
C40 


ory 
— 


‘“ 
3 


Gr~ 


DZR 





furore 





gees 


TURES Oe Sone 





ESRB Se 





Le 
wie 





Et S$ 


ae vual tube + 


DOOD ODOM OMMMMDMMMMMMMMM@MmMm@M@D 
ul 
wo 


RS eh a at 
g 
2 





- 
@ 
“3 
£ 


oco00e 
000011 
000200 


007510 


7 007444 
* 001156 


001154 
900001 


007444 
007519 


000040 
007444 


171500 


po00i8 


007510 
000012 


RPOW’S/6 FORMATTTER PROGRAM 
TYPE ROUTINE 


097510 


Ma 


occode 


2s: MOVBS 
RF 
60$: MOV 
3$: ADD 
RTI 
4g: CMPB 
BEQ 
es 
NE 
TST 
TYPE 
SCRLF 
CLRB 
BR 
S$ JSR 
6$ CMPB 
BNE 
MOV 
7$ DECB 
BLT 
JSR 
DECB 
BR 
;HORIZONTAL TAB 
8s: MOVB 
9s: J 


SR 
BITB 


STYPEC: 7318 


1S: 


HARCNT: . 
TYPEX: RTS 


MACY11 27(655) 


8 
WORD 


iat 

(SP)+ 
(SP)+,RO0 
#2, (SP) 
#HT, (SP) 
#CRLF , (SP? 
S$ 


(SP)+ 
SCHARCNT 
2g 
PC, STYPEC 
SFILLC, (SP+ 
SNULL, -(SP) 
1(SP) 
Be STYPEC 
SCHARCNT 
7$ 
PROCESSOR 
#’ . (SP) 
Pc, $TYPEC 
#7, SCHARCNT 
9° 
(SP)+ 
2g 
aSTPS 
STYPEC 
2¢SP). a$TPB 
CR, 2tsP) 
CHARCNT 
YPEX 
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toe CHARACTER TO BE TYPED ONTO STACK 


HHIE Teaminafon por 11 OFF THe. STACK 


ilar RETURN PC 
: : BRANCH IF <HT> 
;;BRANCH IF NOT <CRLF> 


;;POP <CR><LF> EQUIV 
;; TYPE A CR AND LF 


aw ge Bh COUNT 
NEXT _C TE 


R 
THIS CHARACTER 
IT TIME ron FILLER CHARS.? 


NEX 
# OF FILLER CHARS. NEEDED 
“ NULL CHAR. 
F 


Prana 
wD 
oH 
2 
So 
oO 
io 


NULL NEED TO BE TYPED? 
OP THE NULL OFF OF STACK 


EBaRRB Rate 


Sz 


;;REPLACE TAB WITH SPACE 
;; TYPE A SPAC 

tifAg STOP. NOT AT 

spies OFF STACK 


IGET. NEXT CHARACTER 
::WAIT UNTIL PRINTER IS READY 


HITS CoARECTER BE ARRIRGE RETURN? ee” 


YES -<LERR NCHARACTER COUNT 
i DRA aE es A LINE FEED? 


;;COUNT THE CHARACTER 
;;CHARACTER COUNT STORAGE 


ewe 
0-104 


-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


sATHT 
OCTAL ( 


) NUMBER AND 
SESTYPOS--cENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


UTS ROUTINE Te USED To Commae fleealT Sit’ WONGER TO 8 C2 


T BINARY NUMBER TO A 6-DIGIT 














mac 
mH Se 


Sistah ttt te 


fv a DV TV e TV o IV e TV el¥e Ve l¥s TVs) 
WONT © Wl-O 


© + b= b= 0 0 B= 8 = = 0 0 bb = 0b $b 
Cn en ee ee ee ee ee ee ot oe 


SROISRES 


DZRIB.013 


Reeer Er eRe Ee 
degeaiemecns 


a 


Easne 


ieee 


— 
_ 
8 


0 
007734 


MD-11-D2RJB-A, RPOY/S6 FORMATTTER PROGRAM 
BINARY TO OCTAL <ASCIT) 


007737 


007737 
007741 
007736 





AND TYPE 


; CALL: 


i he Oe oe Oe Oe ee 


t xSTYPON---- out TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 


; #$ TYPOS OR 
iH * MOV 
;* TYPON 
°% 
;*C 
3% MOV 
;* TYPOC 
STYPOS: MOV 
MOVB 
MOVB 
ADD 
BR 
STYPOC: MOVB 
MOVB 
STYPON: MOVB 
MOV 
MOV 
MOV 
MOVB 
NEG 
ADD 
MOVB 
MOVB 
Ce 
1$: ROL 
BR 
2s: ROL 
ROL 
ROL 
MOV 
3S: ROL 
DECB 
BPL 
BIC 
Fey 
BEQ 
4§: INC 
Bie 
Ss: Is 
MOVB 


MACY11 27(655) 


UM, -(SP) 


ad HERE FOR TYPEOUT OF A 16 BIT NUMBER 
; NUM, -(SP) 


#1, SOF ILL 
#6, oes 
#5, SOCN 
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SEQ 9049 








ref TO GE TYPED 

tt iR=T 106 19 b rope RUTBER OF DIGITS TO TYPE 
arr TYPE LEADING EROS 
S LEADING ZEROS 








5 sEPUER TO_BE_ TYPED 
;;CALL FOR TYPEOUT 


















;;NUMBER TO BE TYPED 
;;CALL FOR TYPEOUT 


;PICKUP THE MODE 
: FLOAD ZERO FILL SWITCH 
7 | NUMBER OF DIGITS TO TYPE 
;;ADJUST RETURN ADDRESS 


;;SET THE ZERO FILL SWITCH 


3;9ET FOR SIX(6) DIGITS 
iaeT 16 ITERATION COUNT 


33 SAVE RS 
;;GET THE NUMBER OF DISITS TO TYPE 
5 eee TTF IT FOR MAX. ALLOWED 


SAVE IT FOR Us 
33GET THE ZERO FILL SWITCH 
oA THE INPUT — 


HROTATE TysB INTO“ ey 


G0 
tt FORM THES DIGIT 


ji Pe Tas ol aie 





SUURM RRR RRARRA aa anda na aaa iMMuuee tes Pee eearctrrie ia 











ite 
OZRIB.913 


74 


g5eeeeree 
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BINARY TO OCTAL (ASCII) AND TYPE 


1g Se 


ena: 


| = 


; 


oO 
we 
5 
im 
pe 


ooo0c2 000004 


ie 






T 8$ ::GO TYPE THIS DIGIT 
7$: DEC SOCNT ;;COUNT BY 1 
BGT es ::BR if HORE TO DO 
Fhe BS tS PhcURE CAST DIGIT ISN*T @ BLANK 
BR 2s G0 DO THE LAST DIGIT 
6S: MOV (SP)+,RS ssRESTORE RS 
MOY CSPDS°RS 
MOV 2(SP)4(SP) ake Toke Fd FOR RETURNING 
Hoy (SP)+; (SP) 
ag .BYT +e ORAGE FOR IGIT 
BYTE 5 ae FOR Te ER UTINE 
SOCNT: .BYTE Q 
SOFILL: .BYTE 9 + ERO Fie ToarTen 
DE: .WORD : + NUMBER ieee TO TYPE 


-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


; [ Serecnenncnatysenecsnescencuannenaseontocoscotanccceneenenaens 
;#THIS ROUTINE IS USED TO CHANGE A igart BINARY NUMBER TO A ae 
;#SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON une? HER THE 
; ¥NUMBER {5 POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 





> #BEF HE FIRST DIGIT OF THE NUMBER. LEADING WILL ALWAYS BE 
j #RE WITH SPACES. 
+ MOV NUM,-(SP) ssBUT THE BINARY NUMBER ON THE STACK 
k TYPDS GO TO ROUTINE 
STYPDS 

MOV RO,-(SP) 33 ON S 

MOV Ri:-(S5P) ::PUSH R1 ON STACK 

MOV Re, -(SP) ;;PUSH ON 2 

NOV RB’ =¢8P) PUSH Re. ON 

MOV R020, (SP) Hee ii BLANK Sith SIGN 

MOV 20(SP);RS 3 GET 

BPL 1$ ;;BR IF a 

NEG RS He THE BINARY NUMBER POS. 

MOVB = #’ =, 1( SP) RSC NUMBER NEG. 
1S: CLR RO ZERO THE CONSTANTS INDEX 

MOVE RPO TRAD + ETO THE EIRST CHARGETER TO A BLANK 
2S CLR + OF oR NUMBER 

MOV SOTBL(RO),R1 § ;;GET THE CONSTANT 
3S: UB RL,RS 33FORM THIS BCD DIGIT 

BL y F 

Inc Re INCREASE THE BCD DIGIT BY 1 
4S: ADD R1,RS ;ADD BACK THE CONSTANT 

TST Re + CHECK IF BCD DIGIT=0 

BNE S$ THROUGH 

Sts = (SP) STILL DOING LEADING 0°S? 











ND-11-D2RJB-A, 
DZRIB.013 
1983 010036 
1984 10040 
1985 019048 
tae? Dldese 
1988 O10056 
1983-01006 
1990 10064 
1991 010066 
1992 910072 
1993 010074 
1994 010076 
1995 010100 
199 010102 
1997 010104 
1998 010106 
1999 010114 
2000 010116 
2001 910120 
2002 O10lee 
2003 010124 
2004 010126 
2005 010130 
2006 010134 
2007 010142 
2008 O10144 
2009 O10146 
2010 10150 
2011 010152 
e012 010154 
2013 O10156 
e014 
2015 
2016 
2017 
2018 
2019 10166 
2020 910170 
2021 010172 
e022 010174 
2023 
e054 
2025 
2027 
2098 
2029 
2030 
2031 
2032 
2033 
e034 910204 
2035 10210 
010216 


RPO4/S/& FORMATTTER PROGRAM 
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CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


0 
16663 
0S013 


=e 


005037 
012737 
013737 


0001 177777 
0060 
000040 


000010 


177777 


177776 


010156 
o0000e 000004 


S$: ASLB 


6S: BIS 
73: BIS 


8$: TSTB 


9S: CLRB 


SOTBL: 


SDBLK: 


7$ 
(SP) 


6$ 
2B R3 -1(R3) 


1'w 


SP), -2(R3) 


ofr mem mmm 
—T 


4 


-SBTTL TTY INPUT ROUTINE 
jp EMRE RARER ERE AREER EERE EEK ARERR REAR RARE AREER AREA EER EERE 


"ENABL L 
STKCNT: .WORD 
STKQIN: .WORD 
STKQOUT: .WORD 
STKQSRT: .BLKB 
TKQEND=. 
VEN 


;*TK INITIALIZE 


; xTHIS ROUT 
:*SETUP THE 
: CALL: : 
3% JSR 
“i RETURN 
$TKINT: CLR 
MOV 
MOV 


ir 
INT 


R 
ILL 
R 


0 


1¢ 


NE 
NIT 
RUPT VE 


I 
CTOR 


PC, STKINT 


STKCNT 
#STKQSRT, STKQIN 
STKQIN, STKQOUT 
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ALIZE 
A 


ithe IF YES 
i OR IF 


ear te ecb Blelr 
Hie HE BC T ASCII 
MAKE I ETF NOT ALREADY @ DIGIT 

put THIS CRARAETER IN THE OUTPUT BUFFER 
jsJUST_INCREMENTING 
;;CHECK THE TABLE INDEX 

:G0 DO THE NEXT DIGIT 
4190 _TO Bx EXIT 


LSD 
:3G0 CHANGE TO_ASCIT 
ses THE LSD THE FIRST NON-ZERO? 


NO 
HYES-<SET THE oie FOR TYPING 
;;SET THE TERMINATOR 


: NOW THE _NUM 
;;ADJUST THE STACK 


;;RETURN TO USER 


;;NUMBER OF ITEMS IN QUEUE 
;; INPUT POINTER 
bY KE POINTER 


;TTY KEYBOARD QUEUE 


HE TTY KEYBOARD INPUT QUEUE 


URN ON THE KEYBOARD INTERRUPT 


LEAR COUNT OF OTe noae se ae QUEUE 


3c 
t MOVE THE STARTING AD THE 
;;QUEUE INTO THE INPUT & BuTPuT POINTERS. 

























SEQ 00S1 





zi 


CoTepeeatestentestentes = 
BO 





Sees 


& 
Be 
3 


Sy 


{oo =] 
Be 


wo 

(J) 
-->-b— 

Cn co 


FARR 


eevee 


PPO 


ae ee eh 


OOKYVOOOOVOOOVOOOMOWOVIOVOVIAOVIHONAN NVOOOORM0O0000O 
VEU LOOUE LREOLO 


0-2-0 - § ~ &-< &—< b- +» = p< Db § -2 & -* &- © &- 2 Bo & © b+ & <2 §—— 6 -  e > + p-— 0 = 0 -- b-< b= B= B-- & 2 H-+ pH -< 
Fi 


go 
+t 
ao 
Oo 


geoy § 


fy INeuF ROUTINE 


172666 


17760 


o00503 


031367 
C10204 


179770 
000007 


090176 


os 
é 


Qo es 
SEAT 
WOO fu 
j= "NO" 


3 


oT) > -0-- 


SR8R 
BS 


900007 
001162 


: 000323 
C07? 170564 
170S56 
170SSe2 
177S00 
0008¢1 
000100 


010166 
O2i6e7 900140 


70 
010179 


COCIE) 


000C&e 


- m~ 
1r06.2 


001140 


010166 


170530 


010293 


& FORMATTTER PROGRAM 


MoV aSTKSRV QaTkVEC INITIALIZE The KEYBOARD VECTOS 
MOV #200. aatkVES 3 LEVEL 4 
TST ?CLEAR DONE FLAG 
MOV 3100, aSTKS TENA BLE TTY KEY SOARO INTEPRUPT 
RTS pe »: RETURN TO CALLER 
:#Tk SERVICE ROUTINE 
4aTHIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 
:¥8Y RE ING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 
:#IF THE CHARACTER IS A “CONTROL-C” (tC) STKINT IS CALLED AND : 
:#UPON RETURN EXIT IS MADE TO THE “CONTROL-C" RESTART ADDRESS <OCNTLC: 
STkSRV: MOVE asTke, ~ (36) : PICKUP THE CHARACTER 
BIC tClre Si STRIP THE JUNK 
CMP toB) ‘a :I$ IT A CONTROL C? 
Bh i :BRANCH IF NO 
TYPE SCNTLC >: TYPE A CONTROL-C (tC) 
ISR PC STKINT ::INIT THE KEYBOAR 
TST (SP)+ ::CLEAN UP STACK 
IMP ZcCNTLe ::CONTROL C RESTART 
1$: CMP (SP), a7 7:15 IT A CONTROL G? 
BNE :;BRANSH IF NO 
CMP SSWREG, SWR 21S SOF T-SwR SELECTED? 
BEO 6§ ::G0 TO SWR CHAN 
2s: : 
CMP 87, STKCNT. $313 THE QUEUE FULL? 
BNE : BRANCH IF ro 
YPE | $S8ELL :RING T bas: 
TST (SP )+ 33 CLEAN CRARAC TER SEF OF STACK 
BR $$ :3EXIT 
28: CMP (SP), 823 3328 5 iT Q CONTROL -s’ 
2 323 s BR NU 
ae aSTKS DISABLE Try KEYBOARD INTERRUPTS 
TST (SP )4 ?:CLEAN CHAR OFF STACK 
318: 157 asTKS > WAIT ac 
BPL 31 1$ ss. O9P UNTIL ITS THERE 
MOVB $TKB, -(SP) :GET THE CHAR 
gic etci?? 7, < SP) H : MAKE IT ?-BIT ASCII 
CMP (SP }+, #2] $318 IT A CONTROL-0" 
ONE 31$ (CH IF NO 
HOV #100, a$TKS HREENRGLE TTY KEYBOARD INTERRUPTS 
323: INC STKCNT ; ;COUNT THIS CHARACTER 
CMP (SP}, #140 $318 IT UPPER CASE? 
BLT 4 ANCH IF YES 
CMP (SP), #175 Ts IT A SPECIAL CHAR? 
BGT 4§ ; BRANCH IF YES 
BIC #40, (SP) :MAKE IT UPPER CASE 
4g: MOVB  (SP$4. JSTKOIN AND PUT IT IN QUELE 
INC UPDATE THE POINTER 
CMP $TKQIN, 8STKQEND +190 OFF THE END? 
BNE S$ BRANCH IF NO 
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BROOB BB BB iune 


Qo 


RRRRRRG 


£O 


ine OF 


a 


BS 


0-26-20 -< b+ 0-28 «6-2 b-< BD -= 0-2 6 -< 8 -* &-< & = 0 § -< 6-2 h- 0 h -0 § = 9-0 9-0 0 B 2 Ho Ho 


r 
Zh 


CS BRR Bw VR Powe ote eure totus 


R ie Re 


rw ay ory 
mw orm © 


© 


at 


020 0-2 0-2 = bo ee 0-2 b- 0-2 0-2 bo bo me Sp Se ee oe Sy 
initiate 
F5L3 


aww 
rom 


=> 20 +0 6-40-50 <6 +> +60 -+ 9-0 < 9-29-28 


frurururoronrurorunororurororurorurururofrurururururorururururnfrurururorurururrorurucsrururre 


012037 
903892 


2? 
991309 


lesve? 
OCi§74 





. RECY §-& FORMATTTER PROGRAM MACY!1 27(655) 27-APR-76 i7:59 PAGE 41 
TTY INPUT RQUTIN 


o10i74 10179 


000176 
170436 
170432 
177606 
C0900" 


170939 
177600 
000202 
911367 
OCODOE 
001335 
920198 

16 


af 7041 


900025 


MOTUS SLT, ane THE TRAP. HANDLER, “AN 


WILL 
S*SERVICE THE TEST FOR CHANGE IN 3OF THAR SurTch REGISTER TRAP 
peck wey alae te aa + 


5 RREERREREREERREERARRRERR EERE RRA ERELERERE LALA ER EE EEL ER ERE SERRE 
CONTROL IS paSsed TO THIS POINT FROM EITHER THE TTY iii perv ice 
;#ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A 
j SCONTROL G oa Mia? ED, AND THE ORE HE ONIN REGISTER, Bash SELECTED. 


cMPB UTOB, bt ARE 
BEG 35 :: BRANCH S ss 
TST (SP)+ >: CLEAR cANTRBE=G OFF STACK 
JSR PC, STKINT S3FLUSH THE TTY INPUT QUEUE 
CLR astks :DISABLE TTY KEYECARD INTERRUPTS 
MOVE. ai, SINTAG eT INTERRUPT MODE INDICATOR 
7 TYP ,SCNTLG 33ECHO THE CONTROL-G < 1G). 

$GTSWR: TYP SMSWR :3TYPE CURRENT CONTENTS | 
MOY SWREG, - (SP) >sSAVE SWREG FOR TYPEOUT 
TYPOC ::G0 TYPE--OCTAL aScTICALL DIGIT 
TYPE  , SMNEW ::PROMPT FOR NEW SWR 

198: CLR =(SP) S CLEAR COUNTER 
¢LR -(§P) 33 THE NEW SWR 
TSTB) ss DS TKS :CHAR THERE? 
SPL 7$ 4 NOT TRY AGAIN 
MOVB  aSTKB,-<SP) ::PICK UP SHAR 
BIC etC17?, (SP) ::MAKE IT 7-BIT ASCI 
CMP (SP), #2 ::IS IT A CONTROL-C? 
BNE . 9§ :;BRANCH IF NOT 
TYPE, $CNTLC 33YES, ECHO CONTROL-C (tC) 
ADD —ss SP :CLEAN UP STACK rn 
cree SINTAS, w! 1 TREENRBLE ry KEYBOARD INTERRUPTS? 
MOV #109, ISTKS ::ALLOW TTY KEYBOARD INTERRUPTS 
JMP BCNTLE ;;CONTROL=C RESTART 
CMP (SP), #2s 2:IS IT A CONTROL-U" 
BNE 108 ::BRANCH IF NOT 








MUV #STKOSRT, STKOIN IRESEL THE POINTER 
RTI ; RETURN 


este ett it ttt ti sirititititiititt ttt ttt ii iiti dy, RERELRAEFES LASSE 


THE SOFT-SHR SELECTED 


* BNE $ ;sEXIT 
TSTB = -MSTKS ne A SHAR HAITING? 

BPL_ 15S a NOT, EXIT 

MOVB JSTKB,-(SP) iY 

BIC etC17?, (SP) MAKE IT 7-BIT ASCII 

CNP (SP), #7 im IT A CONTROL-G 

BNE 2S ssf NOT, PUT IT IN THE TTY GUEUE 


- --—— me i ee ee re ee ee | ee 





—_—_—<—— 
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; 













D28I8. 213 T¥y INBUT ROUTIN 
2145 O1987O 104402 011374 TYPE =, SCNTLU sYES, ECHO CONTROL<U (tu) 
2146 20874 Oeerdg C0003 208: - ADD Be SP HE GNORE PREYTOUS TNBUT 
13 515%90 O0073. ak 19 :;LET’S TRY IT AGAIN 
2149 
2:50 O19TO2 O2162? 900015 108: CMP SP), els i118 17 ACR)? 
es Bitcbe So1eee SNE 16$ ;:BRANCH IF NO 
2152 10710 OOS76& 00004 TST 4( SP) :3YES, IS i THE FIRST SHAE? 
2:53 010714 9014C3 7% BQ 118. ;:BRANCH IF YES 
gist S107] Si66r° 000002 170214 MOV 2(SP) , 2SWR SAVE NEW SWR 
2:35 Si0724 Obe706 3300 p r1$: D2 #6, SP :;CLEAR UP STACK 
2:56 510730 104401 OOLis: 143: TYPE SeRLF ¢ ECHO <CR> AND «LF 
215? O10734 123727 001135 0000: MP5 = SINTAG, #1 sRE-ENABLE TTy KBD INTERRUPTS? 
2:58 O19742 3030 = BNE 15$ ANCH IF NOT 
ei5$ 3107W4 Oiser? 000100 170172 MOV 100, 9$7KS RE-ENABLE TTY KSO INTERSUPTS 
2i8C O0107Se g0000e iss: RTI : : RETURN 
216) 010754 OO473> So7444 16$: ISR PC STYPEC :;ECHO CHAR 
2ibe 910760 Ceibe? 960060 o ME (oe. :;CHAR < 0? 
2183 O1o764 O02430 _ BLT 18$ ;:BRANCH IF YES 
2164 91076 O2lse7 o00067 CMP (SP), 67 :;CHAR > 7? 
2is5 19772 903015 A B67 13S - ;3BRANCH IF YES 
2:56 O1C77S O42726 990060 Bic aC, (SP)+ :STRIP-OFF ASCII 
21g 911000 OoS76— O00002 TST) =a SP) ide IMI THIS THE EIRST CHAR 
2:68 911506 006316 ASL (SP) 330, SHIFT RESENT 
2:73 311010 08316 RSL (SP) i; CHAR OVER TO MAKE 
2i7; O11912 O06516 . ASL SP) ROOM FOR NEW ONE. 
2i72 011914 O0526€ coo00= 17: INE 2iSP) ‘KEEP COUNT OF CHAR 
2173 211020 OS661§ 1?°77E 375 ~21SP),<SP SET IN NEW CHAR 
2:74 51:524 000667 R 7§ TRET_THE NEXT ONE 
2:75 511086 104401 oOc1les 18s TYPE SOUES S3TYPE ?<CRD< LF) 
2:76 11532 800720 BR 208 SIMULATE CONTROL-U 
te OSASL LSB 
=i 
2is¢ rr inte ah. beat bint noi nee ee 
€:5: pATHIS ROUTINE WILL INPLT & SINGLE CHARACTER FROM THE TT 
' €.5e s#CRLL: 
| BLS i+ ROCHR :GET_ 8 CHARACTER FROM ote, SuELE 
| E184 1+ RETURN HERE :3CHARACTER IS ON T 
e135 :# :;WITH PARITY BIT se reees" OFF 
«ELE? ; 
| g1B8 O1034 O11646 ROCHE: MOV (SP), SP) ;3PUSH DOWN THE PC AND 
2:89 SiiC36 O:6666 o0cc04 ICO00e MOV ¥ises 2tSP) pS 
' 2190 011044 905066 090004 CLR 4(5P) TIGET READY FOR @ CHARACTER 
( 8191 912050 O46 CLR -(5P) :3PUT NEW PS ON STACK 
«E192 O11052 O12746 o1106c MOV w64$,-( SP) :PUT NEW PC ON BACK 
. £193 011056 de RT! Bop NEW PS AND P 
2:34 9: 1088 bu: 
| 2:95 011060 005737 o10166 I$: TST STKONT ;;WAIT ON A CHARACTER 
2:56 Si1064 001775 SEQ 1$ 
2197 S1:06€ O0&337 O9366 DEC $TKCNT sDECREMENT THE COUNTER 
2.9% cill’e 1177868 77074 9O0CO% MOV aSTF GOUT, 4: SP) SiGeT ONE CHARACTER 


- me ee mt 8 te re ee. ee 


a 
cary 
—-ts 
Gsm 


£375 


wi 
(1M - 


C40 


(2000 


M0ocn 


NOUNS Gotue--900 SOPULE Latins hc 


HYVXYVOVO VO GOOOV OOO OOIVINIOI GOOOVOABVOVOVIVOVOVOVOVOVO0OH 
o 


ob =p 
orn 
om s+ 


0+ + 0 = b= 2 b-2 9-9-2 9-2 6-2 2 b= 9-2 9-9-2 
PNT Ae At Arlt Pie oh ras 


MUTUSUFUFUIF FUT ITTF TUTUT Lie 


fulturururmruturururun Murrett letes 


& © 0+ 0-2 0 B+ 9 2-0 hp 
w 
o- 0b 
ieee 
u ° 
tute Eeat 
|) o-- &-9~ 
GIWOW LIL 


Stststatsts} 
fu £ fue- Ue 

+ 
“IWIN TU 


8 


Bee 
Y 3 


ruorurure 

fuorurun 
WWWwWrUurur frururururulurururo furufufu 
Pinte Aa toate ea momar et 
tt 


re 


2 2 = 0 = 0-2 0 & 2 bs 9 b= 8 = Fb = 0 B= + 0+ 0 F-2 & * 02 bP 0 9-2 62 0 2h F-= F— B-= B 2 02 2 P00 fe fF 2 ho 
wvwoto 


0—+ 0+ b-* & 2 bs b= Fb « = 9s Bb -2 & = & 2 0 -< 8-2 & oF B= = § = 9-2 8 8-2 9 = B+ 0 2 oo ho 9s ho 


aw 
au 


990234 
Al} 35 


090025 
011374 
000C0ee 


MACY22 27(655) 


TKQEND ;;DID IT GO OFF 6 

2 ; ;BRANCH N 

e$TKQSRT, $TKQOUT : ARE SE | THE POINTER 
; ;RETURN 


s RRRERRRRERRR ELE RERRRERERARRESEPARERERERELESERERAES ED SEER S £46584 
ts ROUTINE WILL INPUT & STRING FROM THE TTy 


3; INPUT A STRING FROM THE TTY 
OORESS OF FIRST CHARACTER AIL 
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:;UPOATE THE POINTER, = 
al 


;;SAVE R3 
:CLEAR THE RUBOUT KEY 
: }BUFFER FULL? 


3:GET CHARACTE 

:3;IS IT A RUBOUT 

::BR IF NO 

IS THIS THE FIRST RUBOUT? 

BR IF NO 

:; TYPE A BACK SLASH 
S 
B 


: SETUP TO TYPEOUT THE DELETED CHAR. 


+3 
3360 READ GNOTHER CHAR. 
;:RUBOUT KEY SET? 


$3 N 
7: TYPE AR BACK SLASH 


;;CLEAR THE RUBOUT KEY - 
3325 a nl A CTRL 


3 TYPE A CONTROL “U" 


33:G0 ed OVER 
ti7S GHARACTER A “tR™? 
:TBRANCH IF NC 

1 GLEBR, THE CHARACTER 

+: Y wipe a 

IITYPE THE INPUT STRING 
'G0 PICKUP ANOTHER CHACTER 
ti fype a te 

TiCLEAR THE BUFFER AND LOOP 
STECHO THE CHARACTER 

: CHECK FOR RETURN 


;;LOCP_IF NOT RETURN 
;;CLEAR RETURN .THE 1S) 





E ON THE STACK 


338 
7; TERMINATOR WILL BE A SYTE OF ALL O°S 


YE 
330 READ oe "geen: FROM THE TTY 





RPGY 5-6 FORMATTTER PROGRAM 
TTY INPUT ROUTINE 





SEE a 


22 


[= ) 
-- 


06 
3 
4 


aU UES RAL 
Boo 
Hire 
BoueIeasss. 


NMNdnNOVMOORIOOONMO) 
fo 


o— b+ b= p< fo ps bh 2 & 0 8 he Be 


rita 
re 


COCIOGIGIG 


rorurururu 
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TYPE SLF ;; TYPE ALINE FEED 


TST {SP + :;CLEAN RUSOUT KEY FROM THE STACK 
MOV (SP)+,R3 33 RE 
MOV (SP), -<SP) !:ADJUST THE STACK AND PUT ADDRES 
MOV USP} BiSP) 7 FIRST ASCII CHARACTER ON 
MOV aSTTYIN,4(SP) 
RTI : s RETURN 
9s: -BYT : :: STORAGE FOR ASCII CHAR. TO TYPE 
“BYT 3 NAT 
STTYIN: .BLKB 7 ::RESERVE 7 BYTES FOR TTY INPUT 
SCNTLC: .ASCIZ 7tC/<18>< 12 !:CONTROL "C™ 
SCNTLU: .ASCIZ 7tU/«15>«12> :: CONTROL "LI" 
CNTLG: .ASCIZ /“t6/«15>«12 ::CONTROL "6G" 
SWR: .ASCIZ <1S><le>/SWR = / 
SMNEW: .ASCIZ NEW = 





.SBTTL TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS 


fp SERHRARSRERER ERLE SE TTT TTT ttt 
: THIS ROUTINE IS USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE 
:SLEADING NUMBERS. 


"7h 





1 MOV #NUMADR,-<{SP)  ;;FIRST ADORESS OF ASCIZ STRING 
3: JSR PC, asSSUPRS 
$SUPRS: MOV RO, -(SP) 7;SAVE RO 
MOV 4($P) RO ::PICKUP THE POINTER 
18: TSTe (RO) ':; TERMINATEOR? 
BEQ 3 33 YES 
CMPB #°0,(ROj+ 3:IS THIS AN ASCII “C™ ? 
BEG 1g 33 FY 
23: DEC RO ;;BACKUP BY “1” 
MOV RO, 38 :;SAVE FOR TYPING 
TYPE 33;G0 TYPE 
38: -WORD OC ssASCIZ POINTER GOES HERE 
MOV (SPi+,R0 ;;RESTORE R 
MOV (SP}+, (S°) ;;RESTORE THE STACK 
RTS PC ; ;RETURN 


-SSTTL SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE 
5 RRRRERAREEREAEERAREEEELERRERERREEE FLARE AREARERRERARAARARERTALE 


;#THIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN 
s aU TGNED DECIMAL ASCIZ NUMBER. 


te MOV NUMBER.-(SP) | ;;PUT BINARY NUMBER ON THE STACK 
1 JSR PC, a8$SB2D : 







3; CALL 
+ RETURN ;;MOORESS OF THE LST ASCIZ CHAR.IS ON THE STACK 


$S620: MOV 2(SP.,1§ ::SAVE SINARY NUMSER 








MO-11-O2RJ8-A, 
O13 


RPOY-5/6 FORMATTTER PROGRAM MACY11 2 
SINGLE LENGTH BINARY TO DECIMAL ASCIZ RO 


~3 


oO 


fururuturtey 
69696) GIOIGIGIGIGIGI GIG) 
O~ b+ 9-2 b- <> 2p ps 9 pp O92 


fe 
for OwWOD~ IW UIE Wofure-c> 


fururulunturoror 
GIG 


furu 


RERBaNaR EO CRE OORT 


row 
eT sed od 


rmMo 


0 2 2 b= 0 = 0 be = bo 0 B= = bo be bo fe 8 2 2 0 0 0 Oe bb 0 be 
0+ 02 BO 2 = bb 2 & = Bo Be 0 8 0 0 bo 0 2 0 bb 0 0 0 ho 
tw 


OOVIOOOVCOVOOOWOOOOOOOOVDMIOVOVOVOVBOOV000 


COKOKNOOMWom 
ENSRLERS 


o 


4: 


7165S) 27-APR-76 17:59 PAGE 4S 
UTINE 
Be MS EEL RME sexo couge 
iB & dase : ONLY RH W Ftoe THaeae yess 
MOV (SP)+,2(SP) : PICKUP POINTER 
RTS PC ; ;RETURN 
1S: .WORD 0,0 


-SBTTL DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 





5p RRRRRRRARERRREE EERE ERLE READER ERE EEE L ER ERE RAR AE REESE EEE RES ED 
;*THIS ROUTINE WILL CONVERT A 32-817 SINARY NUMBER TO AN UNSIGNED 


;2DECIMAL (ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST SE 
; ®POSITIVE. 


ISR Pc aetoSeD 


: MOV 8PNTR.-(SP) ——«; ;POINTER TO LOW WORD OF BINARY NUMSER 


s RETURN THE FIRST ADDRESS OF ASCIZ 
3315 ON THE STACK 


— i ee i Br KUP THE BATA POINTER 
\ 3 f i 
MOV SSCECYL RC Sight RODRESS OF “SDECVL™ STRING 
MOV RO, 2(SP) :;PUT ADDRESS OF ASCIZ STRING CN 
MOV iRe)+. Ri ::PICKUP THE BINARY NUMBER 
MOV (Re)+, 
MOV #10. .4$ ::SET UP TO DO 10 CONVERSICNS 
MOV #STNEWR RY :;ADDRESS OF TEN POWER 
MOV aS TNPWRS2, RS 
1$: CLR 3 ;;CLEAR PARTIAL 
23: UB cB) JRL. :: SUBTRACT TEN POWER 
Su (RS) ,R2 
BL 3$ ::BR IF TEN POWER TO LARGE 
INC R3 ::ADD 1 TO PARTIAL 
8R es 3 3 ORF 
38: ADD (R4)+,R1 !tRESTORE SUBTRACTED VALUE 
Adc Re 
ADD (R4)+, R2 . 
CMP RB) (RS)+ ;;MOVE TO NEXT TEN POWER 
BIS #°0,R3 ::CHANGE PARTIAL TO ASCII 
MOVB 3, {RO)+ ::SAVE IT 
DEC =< PC) + : DONE? 
4§: -WORD 0 
BNE 1$ ;;8R_IF NO 
CLRB ss ROD + :: TERMINATOR 
SREG ::RESTORE REGISTERS 
S PC ; ;RETURN 
STNPWR: na :3;1.0£09 
180400 531.0808 
113200 :11.0€07 





(4 
re 
D 
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DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 


wn 
Oo 


8 


0 6-- 0-2 b= 6 9 - b= b= p= p= 6 § — Bo we 
0 0 9 b= p= b= 6 9- = p= p= p> pp Sp 


IINIO OOM 
Fse 2nd 


BEB Iss 


& 


fururururururutururu 
ie) 


PRE 


at 


SESS EVSS 


SININI NNN ISIS SIS 


viz 


2 


acon ;;1.08C6 
103246 ;;1.GE0S 
es 331.9804 
1750 3:1.0&03 
1 ;;1.0€02 
le 331.0801 
;;1.0€00 
$DECVL: «.BLKS ie. ;;RESERVE STORAGE FOR ASCIZ STRING 


-SBTTL SAVE AND RESTORE RO-RS ROUTINES 
SL RSRERAERAA ERA RL ARAL AEA LELAE LALLA LAE LLALAAELAALRLELELELAELERELE 
te 


7# _SAVREG 
; #UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE: 
:#T0P=--(416) 


3% +2---(+18) 
7% +4---R5 
;® +6---RY 
;# +8---R3 
3#+10---Re 
;#+le---R1 
7 #414---RO 


SSAVREG: 
MO 


\ RO,-(SP) ;;PUSH RO ON STACK 
Vv R1,-(SP) ;;PUSH R1 ON STACK 
MOV Re, -(SP) ; ;PUSH ON STACK 
MOV R3,-(SP) :;PUSH R3 ON STACK 
MOV RY, -(SP) ss RY ON STACK 
MOV RS,-(SP) ;;PUSH RS ON STACK 
MOV 5512p)’ - 8p) se ae OF MAIN FLOW 
MOV 22(SP),-<SP) ::SAVE PC OF MAIN FLOW 
MOV 22(SP),-(SP) -: SAVE PS OF CALL 
ey 22(SP),-(SP) ;;SRVE PC OF CALL 
;#RESTORE RO-RS 
s*#CALL: 
* RESREG 
$RESREG 
MOV ee ge (a) ;;REST PC OF CALL 
MOV (SP)+,22(5P) s;RESTORE PS OF CALL 
MOV (SP )+. gg 3P) :;RESTORE PC OF MAIN FLOW 
MOV (SP) +, 20(SP) :;RESTORE PS OF MAIN FLOW 
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8.513 SAVE AND RESTORE RO-RS ROUTINES 

ae 01177 012605 MoV (SP), RS : POP STACK INTO RS 

di §}5888 RISER: Moy = $8333 tiPO alae JNTS BY 

2418 O1e004 O12692 MOV ep) a" R2 ::POP STACK INTO Re 

3419 18° O1e631 MOV ‘SP)4'RI ::POP STACK INTO RI 

Byudh 012910 C1260c MOV (SP)+"RO ::POP STACK INTO RO 

e421 812012 o0d0de RTI 














ne | LSTTL TRAP DECODER. 
55 3 fee are age one a go gg 
Suse SSTHIS ROUTINE KILL PICKUP THE LOWER 8YTE TRAP" INSTRUCTION 
545> :#ANO USE IT TO INDEX THROUGH THE TRAP TAB BE TUE STARTING BoparSs 
5439 SOP THE DESIRED ROTTING THEN USING THE BODRESS OBTAINED th Mice 
ees 2460 TO THAT ROUTINE. 

3431 012014 D1004% STRAP: MOV —RO,~<SP) ::SAVE RO 

B4y32 Dis0le O16600 oovcoe MoV aC AP) RO : GET TRAP ADDRESS 

5423 015022 905740 TST —-=(RO) :iBACKLP BY 2 

5434 912024 111000 MOV3 (RO) .RO :}GET RIGHT BYTE OF TRAP 

S435 015026 06300 : asl ORD SBSGITION FOR INDEXING 

BY36 O1S03¢ O1s000 o:20so MOV STRPAD(RO),RO :: INDEX TO TABLE 

By3? 915034 Oon200 RTS —s- RO :G0 TO ROUTINE 

5439 

a0 :;THIS IS USE TO HANDLE THE “GETPRI™ MACRO 

5443 1203 O1184€ STRAP2: MOV _—Ss- (SP). = SP) s;MOVE THE PC DOWN 

Bu4y3 015040 Olge66 oooND4 ooDN2 MOV s-4CSPS.2°SP) :UMOVE THE PS. DGUN 

By44y D1Do4% sacose | RTI SIRESTORE THE PSW 

ciae ; “SSTTL TRAP TABLE 












2447 
ane :*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
445 :#BY THE “TRAP” INSTRUCTION. 
2450 
345] ; ROUTINE 
012050 912036 $TRPAD: , WORD STRAP 
e454 912052 0727 TY ; sCALL=TYPE TRAP+1(1044O01) TTY TYPEOUT ROUTINE ; 
e455 012054 097540 STYPOC ;;CALL=TYPOC © TRAP+2( 104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
e456 O12056 097514 STYPOS ;:CALL=TYPOS | TRAP+3( 104403) TYPE OCTAL NUMBER ‘NO LEADING ZEROS) 
2457 012069 907554 STYPON ::CALL=TYPON  TRAP+4(104404) TYPE OCTAL NUMBER iAS PER LAST CALL” 
eee Ole06e 007742 STYPDS ;;CALL=TYPDS  TRAP+S(10440S) TYPE DECIMAL NUMBER (WITH SIGN) 
ay60 012064 o10s62 SGTSWR ;;CALL=GTSWR § TRAP+6(104406) GET SOFT-SWR SETTING 
e462 912066 010472 SCKSWR ;;CALL=CKSWR  TRAP+7(1044C7) TEST FOR CHANGE IN SOFT-SuR 
e463 012070 911034 SROCHR ;;CALL=ROCHR © TRAP+10( 104410) TTY TYPEIN CHARACTER ROUTINE 
e464 O1e072 O11124 SROLIN ;;CALL= =ROLIN TRAP+11(104411) TTY TYPEIN STRING ROUTINE 
e465 O!2074 011720 SSAVREG carr esay G  TRAP+12( 104412) SAVE RO-RS ROUTINE 
ete OLi756 SRESREG ::CALL=RESREG TRAP+13( 104413) RESTORE RO-RS ROUTINE 


a ee ee ee eee 
‘ 
' 


QNd000000 


Ooooo0000 
bb b= pe b= pe po pe 
ruturufruorutururT 
o— b— bb po 


URCRUNU TOU VU TUTTO? 


TUTUND= & be 
Mr--OWWONTIN LW 


} 
' 
i 
| 
! 
{ 
' 


0+ 0-2 p22 pp po po 
NOU CWO 


SRRIOVLS 


TRAP T 
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~SBTTL SINGLE/DUAL PORT RH11/RPO4Y/S/6 DRIVER (REV 1.0) 


;COPYRIGHT (C) 1976 
DIGITAL ae CORP. 
i NARD, MA 


Y 017 
UTHOBTS) JIN. PACEY /CHUCK HESS 

33 REKRAARE RRA RRA REALE RELA LAAL LAA LAR LEAARAL SLA REAARES PLE RAF LAFF SS 

;STORAGE FOR RPDS1,  BPERL, RPER2, AND RPER3 ON AN ERROR “2” 


RPERRS: 


DRVACT: 


;RPERR 

:RPERRS+2 = RPERI 
RPERRS+4 = RAPER? 
;RPERRS+6 = RPERS 


-WORD 0,0,0,0 
TIVE INDICATORS (DRVACT=8 BYTES) 

sORVACT=0 IF DRIVE IS IOL 

:DRVACT>O IF DRIVE IS ACTIVE WITH A COMMAND ~ 
:DRVACT<O IF DRIVE IS ACTIVE WITH AN ERROR RECOVERY OPERATION 
-BYTE O ;DRIVE 0 

BYTE OQ ;DRIVE 1 

BYTE OQ 3 DRIVE A 

BYTE OQ ;ORI 

BYTE OQ sDRIVE 4 

BYTE Q ;DRIVE 5 

BYTE OQ ;DRIVE 6 

BYTE QO sDRIVE 7 

STATUS INDICATORS (DRVSTA=8 BYTES) 
VSTA=0 IF DRIVE IS OFFLINE OR NONEXSITENT 

 DRVSTADO IF DRIVE IS ONLINE 
:DRVSTACO IF DRIVE IS UNSAFE 
BYTE OQ ;DRIVE O 

YTE O ;DRIVE 1 

BYTE Q sDRIVE 2 

BYTE Q sDRIVE 3 

BYTE 0 sDRIVE 4 

BYTE Q ;DRIVE S 

BYTE OQ sDRIVE 6 

BYTE 0 sDRIVE 7 

TYPES (DRVTYP=8 BYTES) 
RVTYP=0 IF DRIVE IS NONEXISTENT (DRVSTA=O, ALSO? 

{DRVTYP=1 IF ORIVE IS RPOY 
;DRVTYP=e IF DRIVE IS RPCS 

DORVTYP=4 IF DRIVE IS RPCS 
sDRVTYP=-1 IF NOT RPO4/S/6 





SEQ ‘COED 
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MO-11-D2RIB-A, RPOY’S/“6 FORMATTTER PROGRAM 
SINGLE/DUAL PORT RH11/RPO4/S/6 DRIVER (REV 1.0) 


DRVTYP: 


000 


See 
= 


012140 000 
Olel4i - 000 
Olel4e 00 
Olel4¥3 = 000 
012144 000 
012145 000 
012146 000 
01e147 000 


012150 000 
012151 

Ole1Se 000 
012153 

012154 000 
012155 000 
DielS& 000 
012157 009 


O12160 90cc00 


012162 oo0000 


012164 000 


; TABLE OF DUAL PORT 
;DPINT=0 IF 
:DPINT<C IF 


DPINT: 


; TABLE OF PENDING DUAL PORT REQUE 
;DPRQS=0 IF THAT A DUAL PORT REQUEST IS NOT PENDING FOR THAT DRIVE 
;DPRQS<O IF THAT A DUAL PORT REQUEST IS PENDING FOR THAT DRIVE 


DPRQS: 


; TRANSFER_WAIT FLAG (TRNSWT=1 
37H IS A_ONE WORD QUEUE. IT WILL CONTAIN THE ADDRESS OF 
OF THE 1/0 OPERATION. 


TRNSWT: 





- BYTE 


; "DPB" 


‘wore 


MACY11 27(655) 


ONd000000 


pow | ae | oe | oe | oe | oe | oe | oe] 


Oo0o000000 


0 
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oo 


o000 
Lp Los doe Le ee BO Dee Dee] ee oe oe ee 


Ammmmmmm COG mmmmmmmm 


NOU CWO 


WORD } 


; SEARCH WeATS YS, rhb WORD } 


SRCHWT: 

3 RPON/S/6 DRIVE 
;ACTORV 

:ACTDRV 

ACTDRY: 


‘WORD 


.BYTE 


0 
0 
0 


AC 
I 
I 


AT 
T 


Zoo NOUS WTO 
ma] 






ORS 
ACTIVE ON THE DRIVE 
ROGRESS 










L_CONTAIN A KEY FOR EACH OF 
SEARCH COMMAND FOR THE 1/0 
REQUEST QUEUE. 
AT BITOO FOR DRIVE O. 













DZRJi 


B 


SERRE RR 
WONMWUIC UITU--O 


3 








B.013 


012165 


ONdNN00000 


OND000000 


012206 


012210 


ND=11-D2R78-A, RPO4’S/“6 FORMATTTER PROGRAM 


SINGLE”DUAL PORT RH11/RPO4/S/’6 DRIVER (REV 1.0) 


occ 


ocoooc 


;SOFTWARE TIMER ROUTINE ACTIVE FLAG inet BYTE) 
ar: 
ACTSTR: .BYTE 
; UNLOAD Ai, Be (ULOr Le BYTES) 


O UNLOAD COMMAND 
SULDFLOO IF UNLOAD COMMAND IN PROGRESS 
SULDFLG<O IF UNLOAD COMMAND IN WAIT QUEUE 


ULDFLG: 


; LOOK AHEAD COUNT (LACNT=8 BYTES) 
;LACNT WILL INDICATE THE NUMBER OF LOOK AHEADS PERFORMED 


LACNT: 


; SAVE PeGrSTeRs 4 AG (SA 


SEEKFG: 
simon” wane (TIMER=8 WORDS) 


TIMER: 





MACY! 


BYTE 
- BYTE 


fovant AFTER AN ERROR. 
SAVEFG: .WORD 0 
;SEEK FLAG Sie 


FOR A DATA TRANSFER START A SEARCH 
*SEEKFG<O IF DATA TRANSFER WILL DO IMPLIED SEEKS, 
*DISREGARD THE WINDOW 


- WORD 


THIS 
‘mre 
- WORD 
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TRs8 HE SETHE TIMER RSUTINE 48 ACTHVEY= 


0 







Ooo00O0000 
NOME WO 





MMMM 





0 ;DRIVE 0 
0 ;DRIVE 1 
0 ;DRIVE 2 
0 ;DRIVE 3 
0 ;DRIVE 4 
0 ;DRIVE 5 
0 ;DRIVE 6 
0 sDRIVE 7 





FG =1 WORD) 
HE RH11/RPO4/S/6 REGISTERS WHEN THE 
TED AS PER (DPB+14). 

VE THE RH11/RPO4/S/6 REGISTERS, AS PER 





WORD) 
KFG=0 Pe THE DISK ADDRESS ISN’T IN THE WINDOW 













TABLE CONTAINS THE TIME ALLOWED FOR AN OPERATION 
-1 ;DRIVE 0 
-1 ;DRIVE 1 














RPOY/S/6 FORMATTTER PROGRAM MACY11 27(655) 2@7-APR-76 17:59 PAGE S1 


MD-11-D2RJB-A, 
: SINGLE/DUAL PORT RH11/RPO4/S/6 DRIVER (REV 1.0) 


OZRJB.913 
















le 1 . | ; 
eu files IT 1 ee 
l2222 177777 .WORD =] ‘DRIVE 4 

2634 Ole224 177777 .WORD 1 : S 
gb lo226 177777 “WORD =] : : 
2638 sDATA TRANSFER UNDERWAY INDICATOR (DTUW=1 WORD) 

33 sDTUW<O IF NO A TRANSFER ApiOE Y | 

40 DTUWS+N (WHE Neo TO 7) IMPLIES DATA TRANSFER UNDERWAY ON DRIVE N 
bie 012232 177777 DTUW: pam -1 
2644 sATTENTION BITS TABLE (ATABIT=8 BYTES) 
2645 . ;THIS TABLE CONTAINS THE CORRESPONDING BIT TO EACH DRIVES 
sey ATTENTION BIT 
2648 012234 001 ATABIT: .BYTE 1 DRIVE 0 
2649 Oleo3s 902 .BYTE 2 -DRIVE 1 
ai tee | Bre ip Bane 

52 piece? 020 “BY 20 ORT q 
2653 Oleo4] 040 “BYTE 40 “DRIVE 5 
gbe4 D1e24e2 100 BYTE 100 sDRIVE & 
gb55 012243 250 BY 200 : DRI 
2657 ;RPO4/S/6 TO RH11 “MASSBUS CONTROL BUS PARITY ERRCRS" (MCPE) ALLOWED BEFORE 
e658 *CALLING IT FATAL (MCPEMX=1 WORD) 
gb60 012244 900003 MCPEMX: .WORD 3 
2662 ;STORAGE FOR RPADR (THE FIRST ADDRESS (776700 





) 
Pan ;RPVEC (THE VECTOR SS (254)), AND RPVEC+2 (T 


Ole2e46 176700 RPADR: .WORD 176700 
OleesO O002S4 900240 RPVEC: .WORD 254,5#32. 


;MAXIMUM NUMBER OF LOOK AHEADS ALLOWED IS 4 (MXLACT=1 WORD) 








26 MXLACT: .WORD 4 
e671 ;MAXIMUM DELTA DELAY IS 8 SECTORS (MXDLTA=1 WORD) 
73 012256 901000 TA: . #64. 
74 nA RIM ber tA peiay iS 2 SECTORS (MNDLTA=1 WORD) 












MNOLTA: .WORD 2%64. ; 
sere ;MAXIMUM SEARCH FOR I70 WINDOW IS S SECTORS (MXWNDW=1 WORD) 
ae Ole262 o0000s MXWNDW: .WORD 5S 
Fad ;DEFINITIONS OF THE RH11/RPO4/S/6 ADDRESS INDEXES 
e683 ‘000000 RPCS1=0 ;CONTROL AND STATUS REGISTER #1 (ORIVE REG. 00) 
e684 009002 RP!IC=2 ;WORD COUNT REGISTER (NOT A DRIVE RE 








MD-11-DZ2RJB-A, RPO4/S/E FORMATTTER PROGRAM MACY11 27(655) 
ZRJB.O13 INGLE 


/QUAL PORT RH11/RPO4/S/6 DRIVER (REV 1.0) 


NOTE: THE ’P’ OR ’L’ CLOCK MUST BE STARTED 
RPINIT: SAVREG 
MOV 


OOCVOOOVVOOVOOOOOO0O00000 
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;UNIBUS ADDRESS REGISTER (NOT A DRIVE REG) 
;DESIRED SECTOR/TRACK st S REGISTER (DRIVE REG. OS) 
;CONTROL_AND STATUS REGISTER #2 (NOT A ORIVE REG) 
;DRIVE STATUS eT IVE REG 01) 
UMMARY PSE 
GIS 


1 
I (DRIVE REG. i2) 
IS (DRIVE REG. 13) 

















INITIALIZA r108 CODE 
TINE WILL DETERMINE WHICH RPO4/S/6 DRIVES ARE 
oon sT uN AND SET | DRVSTA INDICATOR 


PC, RPINIT 














aePS, -(SP) ‘OVE TH THE “PRESENT PROCESSOR STATUS 
acSete. >,a8PS  ;CHANGE THE PRIORITY TO 5 
CLRQUE :CLEAR ALL REGUEST QUEUES 
OReERRSS Rl :FIRST ADDRESS TO BE CLEARED 
wSEEKFG, Re LAST. ADDRESS TO BE CLEARED 
; 
Rieke "ARE WE DONE? 
1$ “BRANCH IF NO 
#OTUW, R2 ‘LAST ADDRESS 
#-1. (R1)+ : INITIALIZE 
R1,Re : DONE? 
2g LOOP IF 
RVSTA :SET ALL DRIVES TO OFFLINE 
DRVSTA+2 
ORVSTA+4 
DRVSTA+6 
RPVEC,R3 ;SETUP THE RH11/RPO4/S/6 VECTOR 
#7SR. (R3)+ 
RPVEC+2. (R32) 


PADR,R sFIRST ADDRESS OF RH11/RPO4 
#BITOS,RPCS2(R4)" ;MASSBUS INIT 
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3 


ruororurorururururorurnre 


UW 


o-- 0 € 


a aE 


CRORUUNU CON 


OOXAOOOOOOOOOOOAINIMI0AD 
BNF LOG £0 


> 2 > b= 0 -- & — b= &- « p< b= 9 —= & + b> b= — 6 -< B+ & - Bo Oo 


mum 


fturoru 





271655) 27-APR-76 17:59 PAGE $3 
REY 1.0) , 


;START_ WITH ORIVE O 


BA DRVINT IN IT THE DRIVE 
ug "DVA’ NOT SET OR PARITY ERROR 
S$ :NORMAL RETURN 
DRVSTALRI) ‘SET DRIVE STATUS TO OFFLINE 
Rl :G0 TO NEXT DRIV 
etc7, Rl :MASK OUT UNUSED BITS 
3$ :BR IF MORE DRIVES TO G 
a7, R1 :START WITH DRIVE 7 
a8°S :CLEAR THE PROCESSOR STATUS 
OPINT(Ri) ‘WAITING FOR DRIVE TO SWITCH PORTS 
9 :BR NOT WAITING 
BC SET. IE :SET INTERRUOT 
DPINT (Ri) :DRIVE SWITCHED PORTS ? 
7 :BR IF NOT 
R} $60, 10 , THE NEXT ORIVE 
(SP)+, aePS !RESTORE THE PROCESSOR STATUS 
:RESTORE RO - RS 
PC BYE-BYE 
UTINE 
DE TERNINES | IF A DRIVE EXIST AND IF IT IS 
. IF IT IS, A “READ-IN PRESET” IS issvep iB FMT22 
TTOA I". aiteh MOL, DPR DRY, AND VY ARE CHECKED TO 
EA bud DEPENDING ON THEIR STATE, 
-ORVSTA IS SET TO THE OB RSP ER CONDITION. 
SORVNUM, RL :ORIVE NUMBER TO Rl 
RPADR RY : UNIBUS ROO oF RHIL/RPOS/S 
RO, ORVINT 
TERROR Oc RRES (PARITY) 
:NORMAL RETURN 
BRYSTACRL) TART TATUS AS_OFFLINE 
ORVTYP(R1) ee Whig NPE. INDICHTOR 
ULDFLG(R1) KtEAR THE UNL 
Ri, RPCS2(RY) LECT A 
11]. RPCS1(R4) 00 A DRIVE CLEAR COMMAND ($ SEIZE DRIVE) 
sb IT Le, RPCSeCRY) hone neeN ORIVE? 
Po SET. IE :GO SET "IE" WITHOUT A “TRE” 
eg itEAVE TH ROUTINE 
T ORI STATUS To OFFLINE 


DRVSTA(R1) 
WBIT11,RPCSL (RM) 
RO, RO. RP 


-SEE IF DRIVE AVAIL 
:BR IF ORIVE NOT AVAL SBCE 
:READ THE DRIVE TYPE REG. 


RROR RETURN ODRESS 
(SP)+,R5 Bt DRIVE TYPE 
si ORY TTR: Ri) POS INOTEA 
#20520, RS -1§ IT A SINGLE PORT RPQY? 
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SINGLE DURL SORT RH11-RPO4Y S’6 DRIVER (REV 1 


gs: 


sREGUEST PRE -PROCESSOR-HANDLES SUBSYSTEM REQUEST 


« CALL 





i7:59 PAGE SH 


Rie es buat PORT RPOY? 


Boat Poet RPOS ” 

SET RPOE proce og 
SINGLE POR 

BR IF YES 

; DUAL Pal RPO ” 

:8R IF Y 

ge INDICATOR TO ‘OTHER’ 


 vaaagegadlet 
'50 i “READ-IN PRESET” 


3 AND SAVE IT IN RS 


H IF ATAs 
NELEAR RTTENTION IT 
sFINO OUT WHY ATASI 


af 

8-1, DRVSTACRL) 

SS 

cs 

eeCcBITI2¢g1T08!6 d 

OR VV IS CLEAR 
VE STA ors SNL 

TEP OVER THE ERROR RETURN 
GE _INDEX TO ADORESS WORDS 

Wes TIMER 


Omnwmme-comurdye« 


exam 
Be 


ee es ee ores Gee en 


Rl 
#2000. , TIMER( a)" 
itr PORT INITIALIZE TNIDICATOR 
;RESTORE RS 
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sPS,- { 
aves =34PS 


CTORV 


_— 
DPINT(R1) 
Gy ORVINT 
DRVSTA(RI) 
DPROS(R1) 


1,RPCS2(R4) 
RO, ORV 


QUE 
#103,2(R2) 
es 


6-1 ULOFLS(R1, 


DRVACTIRI} 
9$ 
PC, OPT 


| ca 


PC CI? 
RO, ORVOUE 


sBITOb, (RY) 


PC, SET.IE 
GEveTACRs) 


Nae ae THE STA 





i7:59 PAGE SS SES 0067 


iRETORN ERE’ TF GUE oF her PARAMETER SLOCK 


aT URN 1 BA REQUEST IS IN QUEUE OR THERE 
1S AN ERROR CONDITION 


BANE ra yy STATUS 
a VERS erat INTERRUPTS 
Sve "ACTIVE, BRIVER™ F 


SBToK KUP THE “PRIVE PARAMETER Bu 
VAs INDICA 


- 
im 
mo] 


Ck P 
TOR 


Gab Comat IN QUEUE” 
eal Q INET THE ORIVE 
85 INIT: THE ORIVE 

TURN 


: ERROR 


iis DRIVE STATUS ONLINE” 
s QUTSTANDING PORT REQUEST FOR THE DRIVE 7 
ISELECT THE DRIVE 


:PUT THIS REQUEST IN QUEUE 

; QUE S_ FULL 

315 THIS "REQ. FOR AN UNLCAD” 
;SET THE “UNLOAO IN QUEUE” FLAG 


A Tals DRIVE ACTIVE? 
SALL THE OPTIMIZER 


Re) i SET THE “UNLOAD IN QUEUE” ERSOR FLAG 
ko HANOLE THE PARITY ERROR 
;PUT REQUEST IN GUEUE 
QUEUE IS FULL 
BY : nr SET ALREADY ° 


iSET INTER 
N, REQUEST IN QUEVE 
; SEE IF DRIVE OFFLINE OR UNSAFE 


aBITIS18IT14, 16(A2) :SET OFFLINE ERROR INDICATOR 
:SEE IF OF 


DRYTYP(RI) 


FLINE OR NCNEXISTENT 


8$° -BR I OFFLINE 
SBITIS'BITOL,16(R2) :REPORT ORIVE NONEXISTENT 
Z 360 T EXIT 
WBITISIBIT12,16(R2)__;DRIVE IS UNSAFE 

;RESTORE RO - RE 
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RPOWS.6 FORMATTTER PROGRAM MACYL! 27(655) 27-APR-76 17:59 PAGE Sb 
SINGLE DUAL PORT RH11.RPO4-S-& ORIVER (REY 1.0) 
905720 TST (RO\+ ;SETUP FOR NORMAL RETURN 
69040 BR _ 108 “FINISH UP THEN EXIT 
1044] 3g: ESREG jRES TORE 
oe oe = Sy it SoC ER ee 
i 637 4es8¢ MBV (SP)+, JUPS ‘seek RN “pS” ES Age a LEV ‘ 
900290 RTS RO :RETURN TO CALLER 
s OPTIMIZER-CALLED FOR A PARTICULAR DRIVE 
* CALL 
: MOV #ORVNUM, 81 :DRIVE NUMBER TO Ri 
; ISR PC, OPT :SETUP A COMMAND 
1ow12 OPT:  SAVREG ;SAVE RO - RS 
513746 «17777; MOV (SP) : SAVE PROC. Stal US 
146137 012234 BICB arpetTiei). SRCHWT LEAR “SEARCH WAIT” KEY 
737 6 Deds2e ISR PC, GETREO GET "OP pas POINTER OF REQUEST 
905702 57 Ro’ 15 THERE A REQUEST IN QUELE? 
001505 BEo.i(‘é7'SS :NO=-BRANCH TO EXIT 
932764 910000 BIT #BITL2,RPDSI(R4)’ :IS MOL STILL SET ” 
901404 BEQ :BR IF NOT 
932764 00109 BIT #BITS,RPOSI(R4Y) ‘IS wW SET ? 
901903 BNE :BR IF IT IS 
004037 O12475 9g: JSR RO, DRVINT SEE IF DRIVE STILL ONLINE ? 
000470 BR :PARITY OR ‘DVA’ NOT SET 
195761 012120 10S: TSTB  ORVSTACRL? :1S DRIVE ONLINE? 
993014 BGT 1s CH 
004737 o2eD444 ISR QUE NO=-RENOVE REQUEST FROM QUEUE 
5le762 140000 MOV aBtTisraiTs4, recith sSET OFFLINE STATUS “ERROR 1 
105761 O12120 TSTB 3sOORV 8 RIV VE UNSAFE? 
95064 BPL Bs -BR TO xIT IF NOT 
12762 110900 MOV eBITIS!B1T12, 16(RE) isety UNSAFE STATUS“ERROR IND? 
O1e746 000111 18: MOV STi -(SP) ;LOAD Hommani UNTO THE STACK 
004037 917374 TSR RO, WAT. RP :LOAD THE REGISTER 
oooc RPCS1 ;REGISTER INCREMEN 
013560 3 | ROR TURN AQDRESS 
714 904900 BIT aBIT11, (RY) ; DRIVE AVAILABLE ? 
l4e7 SEO =B 4 NOT 
122762 O00150 CMPB sw 150, 2(R2) Ts HE REQUEST FOR 1°07 
992403 BLT 2 sYES--8 
4737 014022 JSR €.cr4 CALL THE “Corman INITIATOR 
Bpaao x BR 8$ : BRANCH 
905737 Ol2232 28: TST OTUW :DATA TRANSFER UNDERWAY? 
00201 7 BGE 4$ YES--GO START A SEARCH 
005737 012210 TST SEEKFS 300 IMPLIED SEEKS? 
100404 BMI 3 ; YES~-~BRANCH 
004037 014772 JSR RO,LA :NO--DO LOOK AHEAD 
000427 BR 9$ : RETURN HERE ON A PARITY ERROR 
000493 BR 4$ :GO STAR 
003737 013606 2$: JSR PC,CIL “START A ThaTe TRANSFER 
0423 BR 9 
904737 912714 4$; ISR PC,CI3 :START A SEARCH 


eee ee eee 








atiatcatcatratcatcat cat og 
PLU LOLS 


3 


o 


CKVOOO OVO VO OOVOVOOOVOOOOOO0OVoV00000) 
eo 


02 b= O20 = b= = b= bb 2 Ob 2 2 Bo Be 0 #82 0 ba = Oo Be ge 
vee tetwtstetepetetes +d $4 


PRP eeteeo tate pe tg 


» RPOY’S-6 FORMATTTER PROGRAM 
SINGLE “DURL 


17707? 
és 


023420 012212 


014436 
900199 


o20444 


012160 


Q12246 


C0oSe 


017374 


017374 


aT99%8 


017374 
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SAB? 


Pvt 





1 PRQS(R1) 
- ' \ 
748 


RS" 
poe TIMER RAS 


Bet TOG, (RY) 
9 


PC, SET. IE 
(SP)+, aaPS 


PC 


;COMMAND INITIATOR 


aORVNUM,R1 
sDPB Re 


pc,ct? 


PC, POPQUE 
R2° TRNSWT 
Re R3 

RPADR, RY 

R1, RPCS2(R4) 
3.3 


Chane, (R4)+ 

(Rad (R4Y)+ 

(R3)+: -(SP) 
tT RP 


(R3i+,-(SP) 
RO, WRT. RE 


Mie 
ayer 


ices 
Re), -(SP) 
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a i ae ee 


iSTaRT 10 SEC TIMES 


‘PROCESS THE PARITY ERROR 
E IF fe ALREADY SET 


SET oy "rTHOUT A “TRE” 
RESTORE PROC. STATUS 
RESTORE RO - 85 


wor 


ANSFER 
FARCH REQUESTED BY DATA XFER 
NOT DATA TRANSFER 


3 TOE REQUEST FROM “DRIVES WAIT” QUEUE 
pas REQ. IN TRANSFER WAIT GUELE 
ROQRE TO R3 


;LOAD “COMMAND+ 
;SET “DATA TRANSFER UNDERWAY” 


SEL “Fey 
RESTRED. ate NDER AOD 


Cm ee ee - ee 
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SINGLE “DUAL 


116203 900010 
63703 Clz2be 
02002 


703 
010346 1$: 
6266 


o00001 


lee C0013! 


9200:0 
004037 017374 
O0000E 


017374 


C17214 


000091 
017374 


000117 
090193 


soe 


7274 


Sata 


000105 is: 
GCoCle 2s: 


006115 3$: 


000107 4§; 
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10(R2) ,R3 
eens 


#e2. ,R3 

R3,-(SP) 
1itR2),1(SP) 
RO,WRT.RP 


#131,-(SP) 
0, WAT. RP 


+ gin » SRCHWT 


RFAD 
Rl sere F4) 
2(R2).R 

#131, af? 

1B eR Re). {SP 
Ab ART 


et 

8105,R3 

3$ 
l2(R2),-i SP) 
RO, WRT. RP 


5 omar 


#1 ,ULDELS(RL) 
Rep 
"RT. RP 
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;PICKUP SECTOR ADDRESS 
BACKUP BY MAX. SEARCH FOR 1/0 WINDOW 


; COMBINE THE Se TeD SECTOR WITH 
: THE DESIRED T 
;LOAD DESIRED FRACK & SECTOR 


;START A SEARCH 


;SET “SEARCH WAIT” KEY 
;RPCS1 ADDRESS 
s ELECT DRIVE 
;PICKUP THE ae QUES TED COMMAND 
315 IT A SEARCH COMMAND? 
BRANCH IF_NO 
;LORD DESIRED TRACK 8 SECTOR 


, “OFFSET” COMMAND ” 
HE OFFSET VALUE INTO RPOF 
*T CHANGE THE UPPER 


EN LOADING THE 
R (RPOF 


MMAND 
SLA TBRATES 





COMMANE ? 





ereer er ee ee ee Ge ee ee ee ee 
--(De~C» 
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ep ap epetetwtinbet epetetetetetetetit 4 
=o eee EHS SST SS 3 
BBVRREBREBSA 


0+ 0-+ 0 0 9- bo 
mun s WTO 


ee ew 


2144 Ci? 
bogeo? “ Kt pc sRETURN TO USER 
lee. 3 000143 S$: CNP #143,R3 7 Ri Be A "SET FORMAT" COMMAND? 
Boa 3 o172!4 ISR 8 RD.RP :READ T FoF eser REGISTER 
014436 SI? 
gocg01 090591 MOVB bine) (R2) SP) sCOMBINE “FMT22","ECI", AND “HCI” 
7374 JSR O.WR :LOAD “FMT22", “ECI", AND/OR "HCI". 
32 RPOF 
014436 CI? 
900436 BR 123 
122703 200141 6S: SMPB #141, RB ;IS IT A“GET REGISTER” COMMAND? 
901083 " SNE 10$ : BRANCH IF NO 
01 coonos 7S: MOV &(R2),R3 :POINTS TO 1ST AQORESS OF WHERE 
:TO PUT THE REGISTER(S) 
116237 900019 014306 MOVE = -10( RB), 98 :INIT. THE _HubeX x FOR THE FIRST REG. 
ib 05 99011 MOVB Ashe) 8 RS s INDEX OF LAST REG. TO MOVE 
17214 9$: JSR ;RE RPO veTE REGISTER 
p00 3s: RPCSI : INDEX OF REG. TO READ 
012623 MOV (SP)+, (R3)+ :GET THE CONTENTS OF RHI11/RPO4/S/S REG. 
023705 014306 CMP 3.5 :LAST REG, BEEN READ? 
1414 BEQ ie$ :GET OUT IF YES 
062737 o00002 914206 ADD #2, 98 : INCREASE THE INDEX BY 2 
009764 BR :LOOP--MORE TO REA 
2703 ocOoo14s 10S:  CMPB #145,R3 :IS ITA reeeEC! DRIVE" COMMAND? 
1405 BEQ 12$ : BRANCH 
910346 118: MOV R3, -(SP) : LOAD Sue COMMAND 
004037 017374 RO; WRT.RP 
900000 
014436 ? 
737 ge044 128: POPQ :RENOVE REQ. FROM QUEUE 
o9cecc o9ocole 881707, 1E<R2) "DONE" 
012206 EFG s36VE THE RHII/RPO4/S/& REGISTERS” 
O17SE& ¢,SVRH1! ‘MF aes CAVE THE REGISTERS 
ye: Ri —_ 
001750 o12212 #1000. , TIMER(R1) ;SET A ONE SECOND TIMER 
900001 oO12110 #1,DRVACT(RL) ;SET THE DRIVE ACTIVE 
; pC ;RETURN TO THE USE 
. CIs: R3, “SP :LOAD THE COMMAND 
017374 RO; WRT. 
booree 
O32 010000 oo0010 CI?: abiT12, »RPCS2(R4) pi RIVE.N NON-EXISTENT ” 
005 1$: OF Ne IN QUELE ? 
00 ae *BR IF NOT : 
Ol 104909 900016 a6! 1St81T1L, 16iRes ;SET “PARITY” ERROR INDICATOR 
0 S175E6 0 SAVE” THE RHL1-/RPO4-S § REGISTERS 











311? 
3118 


GIGIGIGI 
6 b-- 9 
~ 

rv 6] 


>) -6-- 


Banttietet tbl tub initiate tt ttt ett red 


WII IW GIGI GI WIG) GIGI GW GIGIGIG) (9G) I OIG) 0G GIG) G0) GI GIGI GI) IG) GI GIGI CI GIG) GIGI CIGIOIGIGIGIGIG) 
a os 
ul 


0 Ob Fb 9-2 92 9 he F-20822 bs 8 « 2 9&2 2 §-2 9s F 2 Bs § 0 0 2 fe Fe Fw Fw He Fs sf 0 F-8 & 2 b= 2 


C3 tbe GER Un  COF 09.0 00 SOPOT oe GF oP 





MO=-11-DORIB-A, 
DERIB.913 


14 


FEESEELE 
RREZEEES 


fObEOe 


ONOOVNOOYNOOVONNOVB0000 
<= 


b= 62 p< Gs pe 2 9-0 §  & © f= he fF fo Fe ee 


Se 
Sia 


RPO4.S.'6 FORMATTTER PROGRAM 





MACY11 27{655) 27-APR-76 i7:59 PAGE 60 


SINGLE “DUAL PORT RH11’RPO4’S’6 DRIVER (REV 1.0) 


012746 
peas 


104412 


000111 
017374 


012119 


012160 
Olee3e 


020422 


010000 


oocode 
177770 


177777 


012232 


000210 


o0co1c 
000916 
000016 
Cl22le 
012232 


098019 


Olee23¢ 


000010 


CI7B: 
wal ° 


Ow~ 


1$: 


2s: 


38: 
4$: 


S$: 


6$: 








#111,-(SP) :00 A “DRIVE CLEAR” 
RO, WRT. RP 
NPT sEMPTY THE QUEUE 
ULOFLG(RI) ?CLEAR THE UNLOAD IN QUEUE =LAG 
ORVACT(RI) -DRIVE IS IDLE 
1, OTUW ‘IF THIS DRIVE HAD AN I/0 REQUEST 
¢ IN PROGRESS CLEAR ALL OF THE FLAGS 
TRNSWT 
#-1, OTUW 
;SAVE RO - RS 
wBIT12,RPCS2(R4)’ -IS *NED’ SET ? 
1$ ;8R IF YES 
Ri 
DRVACTIRI) sDRIVE ACTIVE? 
BRANCH TE_NO 
TRNSWT , R2 GET T RANSFER WAIT” QUELE 
Ri ,DTUM :DID 7 TH - aRive HAVE AN 1/0 IN PROGRESS? 
PC, GETREQ 
Re" pat ia DRSve ? 
#81712, RPCS2(RY) oe " NED SET 
aBITIS!B1701, wi) rive "DRIVE NON-EXISTENT’ INDICATOR 
#BITIS!BIT10, 1echBS NF NON-C CLEARABLE PARITY” ERROR INDICATOR 
vi Save 1/RPO 4/5/6 REGISTERS 
#-1° TIMER(R3) 39 
DRVACT (RI) Set ne ines IVE" TO IDLE 
Ry , DTU THIS DRIVE SETUP FOR A TRANSFER 
#-1, OTUW | THE INDICATOR 
TRN SUT 3CL te, THE TRANSFER QUEUE 
ULDFLG(R UNLOAD FLAG 
aeiTle, sRPCSECRA) Pet 
Rl mR HE NEXT DRIVE 
ner, Ri W IE IVES 
io otuw FRANGFERS UNDE 
TRNSHT Sete Ve aigeg h a " "QUEL 
CLRQUE T QUELES 
pasate 
PC EMPTY HE ORI VE’S QUEUE 
DRYSTALRI “DRIVE 9 TO OFF = 
ORVTYP(RI) a DRI ve PE INDICATOR 
‘ E "IE" WITH QUT 


RESTORE RO 
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SNOT Lore 


NURI 
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012176 
Oiel7s 
090019 
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002609 
Ol2eS6 
01220 
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O1L4436 


000001 


012246 
Olee3e 


015174 
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;LOOK AHEAD ROUTINE 


LA: 


; INTERRUPT SERVICE ROUTINE 
ISR: 
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s RETURN 
;DRIVE 
:POINT TO DPB 
:GO CHECK THE WINDOW 
7ERR 
: START 


A SEARCH 
START A DATA TRANSFER 
;GET RPCS1’S ADDRESS 
SELECT DRIVE 
;READ CURRENT CYLINDER 
;ERROR RETURN ADDRESS 
315 CURRENT CYLINDER=DESIRED 
; CYLINDER? 


NO 
tle THE LOOK AHEAD COUNT 


LAGNT RI? sMXLACT” peor MAX? 


H IF YES 

:GET DESIRED SECTOR ROORESS AND 
;MULT. BY 64--ALIGN WITH 

LOOK AHEAD REGISTER 

;PRIORITY LEVEL "7" 

;READ LOOK AHEAD REGISTER 

;CALCULATE THE DELTA 


s MAKE THE DELTA Poe 


LOOK AHEAD COUNT 
“AND TAKE THE I/O EXIT 
ADJUST THE RETURN ADDRESS 
:PROCESS THE ERROR 
RETURN 


iShve Ro "ACTI DRIVER” FLAG 


GET & Bi ee PER R_UNDERWAY” INCICATOR 
T alncteR Tune DATA TRANSFER UNDERWAY 


pt TR 
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aa8 
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ars 
eee aa 


gr 
5 


peeee 


ae 


015334 


012164 


012110 
177777 


177777 
012160 
012160 


001 
017214 


Oi2206 


017566 
013326 


000113 


000016 
017214 


020506 
017704 


000001 


012232 
012212 


000016 


000016 


1$: 
28; 


JSR 


RESREG 


CLRB 
RTI 


PC, SC 
ACTDRV 


; TRANSFER DONE ROUTINE 


TD: 


1$: 


2s: 
3$: 


;SPECIAL CONDITION ROUTINE 
sen 
RO,RO.RP 


SC: 


SC3: 





SOc + 
SBR BAS 


BIS 
JSR 


MOVB 


DRVACT(R1) 
#-1, TINER(R1) 
Ri 


TRNSWT , Re 
6 
( 


TRNSWT 

#BIT07,1 

R1,RPCS2 
0;RD.RP 

(SP)+ 

33 

SAVEFG 


PC, SVRH11 
PC, OPT 


#113, (RY) 


#BITIS!BITOS, 16h) 
PC NPT YQ 


PC’ SVRH11 
40111 (RY) 


13, (R4) 
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;BRANCH IF ANY *ATA’ BITS SET 
READ CONTROL AND STATUS REGISTER 
ves, Ho RIVES TO CHECK 
SS IN *SESCAPE’ 
eet YEN ILLEGAL INTERRUPT 
NTERRUPT ENABLE. 
PROCESS ALL DRIVES THAT HAVE 
AN “ATA”"=] 
;ATA=1? 
: YES--BRANCH 


SEQ 0074 








i RESTORE SPECIAL eal 
: CLEAR RACTIVE B DRIVER” FLAG 
sRETUR 






;SET DRIVE ACTIVE ne TO IDLE 
NO DATA TRANSFERS UNDERWA 


;CANCEL TIMEOUT 


;GET “DPB” ADDRESS FROM THE 
s IRANSEER WAIT QUEUE--CLEAR QUEUE 


SELECT THE DRIVE 
; TRANSFER ERROR(TRE=1)? 





;8R IF_YES 
3 SAVE : RH11/RPO4/S/& REGISTERS? 


ivES--SBVE 1 REGISTERS 
CHECK sorien OF Red ves 


jREL LEASE THE 
OR OTMER DRIVES 

“SET DATA ERROR FLAG 

MPTY THE “DRIVE’S WAIT" QUEUE 

EVE THE RHI 1/RPO4/5/6 REGISTERS 

SISSUE A “DRIVE CLEAR” 

: ISSUE A RELEASE TO THE DRIVE 

:CHECK FOR OTHER DRIVES 





;READ “RPAS™ 
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012140 
163 
a1zi80 
016326 
Olele0 
012166 
020422 
017566 
016256 
012120 
040000 


016166 
01210e 


012110 
016256 
012140 
012120 
Ceoc00 


090113 
017374 


020506 
020506 


177777 


020422 
0019 
1721 
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SCY: 


012100 


012106 


012212 


scs: 


1$: 


es: 


3$: 
S$: 


$$: 


7$: 
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481713, RPERRS+6 ; 


@ Beas 
ok 
3 


ur 


£ 


: 


<= 
4 


S-a-t-o Oo SYS 
83K 
BitR 


SEG 0075 














;MOVE TO THE NEXT DRIVE 


;BRANCH IF MORE TO CHECK? 
; CLEAN i Ne. 3 STACK 
Tata SER 

a TALLZING. THE DRIVE ? 


ie SFR, 








ae OUTSTANDING ? 


Sat WME OUTSTANDING COMMAND 
CHECK THE DRIVE STATUS 


: BRA ate ONL INE 

* UNLOAD IN PROGRESS? 

:BR F NOT 

*GET DPB POINTER 

i SAV THE RHI 1/RPO4/5/6 REGISTERS 
RPDS1 RPER2 AND RPER3 

DO A Brive” tart (DRVINT 

‘DID DRIVE COME ONLINE? 


SUAS THERE AN ERROR? 
;BR IF ERROR 


;NO_ERROR 
;YES o- P a ae RPER1 wate 
‘DRIVE acTIve mat COMMAND OR ERROR RECOVERY * 


:BR IF EITHE 
;SAVE RPDS1 eee RPERe, tas RPER3 


AST OPE RON ome» 


‘BR IF YES, CHECK ON MORE DRIVES 
; CHECK ON ORIVE’S STATUS 


S CHANGED ? 






SSoPLeE 


up ihe 7 AODRESS. THE ERROR CALL 


be reali Hat 
FREPORT THE. ADDRESS PL 4 ae 
othe DRIVE. 


"Dive ADDRESS 
INTER FROM THE QUEUE 


VE 
RPO4’S STATUS REG. 


fee CHECK 
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pyar HES THERE 8 ai ERROR? 


1§ BR I 
DRVACT(RL) i ereck 6 RIVE" § STATE 
I VE WITH R 
Bel tisserrorserrbs, hire) s INFORM USER oF ERROR RECOVER COMPLETION 
20. RP sREAD ERROR REGISTER #1 | 
(SP)+,RS5 AND SAVE 
PC, SVRH11 : SAVE VE RAI RPO /5/6 REGISTERS 
#i11,-cSP) ISSUE A DRIVE C 
RO, WRT. RP 
; s WAS “UNSAFE® CONDITION =i? 
R2 s ANYTHING IN QUEUE ? 
sejristerrorsernie, hiro) _ gINFORM USER OF ERROR 
RO,RD.RP ;READ DRIVE STATUS REG. #1 
(SP) RS RPQS1 IN RS 
(SP)4 a 


:BR IF NO--UNSAFE CLEARED 
#-1,DRVSTA(R1) ;DRIVE IS UNSAFE 


betfistetn, wt RHI INFORM USER OF UNSOFE ERROR 
#81T12,R5 


¥-1, DRVACT(R1) El ia RECOVER 
; ONL 


#1, DRVSTACRL) 

#30000. , TIMER(RL) ;START 30 SECOND TIMER 

31 a laaae ca SINFORM USER OF ERROR 
ULOFLGRD alate dee. OR QUEUE? 


REELED sac ea ie. am 


DRVSTA(R1) 


we ee 
ar =a 


FL : 
#113,-(SP) ; 
RO WAT. RP TRI He COMMAND INTO RPCS1 

REGISTER INDEX 
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B13110 


023420 


012140 
012140 
012476 


012120 
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;PARITY EXIT ADDRESS 


BRVACT(RI) Sounta BLE DRIVES 


PC, GETREO iY ope oPe NTER 

pC, CI7 ; PROCESS THE NPARITY ERROR 

C,CI7B son OCESS THE UNCORRECTABLE PARITY ERROR 
; CHECK MORE DRIVES 

ULDFLG(R1) “UNLOAD IN PROGRESS”? 

1 ‘BRANCH IF NO 

ULDFLG¢ RI) :CLEAR UNLOAD FLAG 

DRVACT ( “SET DRIVE IDLE 

BTABITURL), SRCHWT ;DOING A SEARCH OPERATION FOR 
;BRANCH I YES 


PC, POPQUE MOVE FE QUEST FROM QUEUE 
#8107, 16(R2) SET “DONE” BIT 
; SAVE THE REGISTERS? 


11 t YES- Co adE ALL OF THE RH11/RPO4/S/6 REG’S 
AYABITCRI), RPAS(R4Y) :CLEAR ATTENTION BIT 
PC, OPT seTARtT A 
sc4 *CHECK FOR MORE DRIVES 
RI, RPCS2(R4) SELECT DRIV 
RPOS1(R4) , RPERR ;SAVE THE FOUR REGISTERS THAT 
RPER1(R4) ,RPERRS+2 ‘WILL TELL US SOMETHING 
RPER2 (RY) ’RPERRS+4 
RPER3(R4) |RPERRS+65 
0, DRVINT ; INIT. THE STATE OF THE DRIVE 
1$ TAKE ERROR EXIT 
PC :RETURN 
(SP)+ :POP PC OFF OF THE STACK 


sBROCESS T al ERROR 
os WORDS 


Ri 
, fi » TIMER(R1) sSTOP THE TIME 


RTABTT(RL), Nong haiee CTLER fe VATTENTION BIT 
aie’ BR 3 AVAILABLE 


1 
$0000. , TIMERCRS) ;START 10 SEC TIMER AGAIN 


3 ;EXIT 
DPINT(R1) s INITIALIZING THE DRIVE ? 
DPINT(R1) : CLE THE INIT INDICATOR 
RO, DRVINT :GO INIT I 

: DUMMY Panty he RETURN 
DRVSTA(R1) sDRIVE ONLINE 
2$ :BR IF YES -- START ORDE 
Re Siete eh ENTRY FOR THE BRIVE 





om or 
SRS ae 
ror Prow 


C1INOO0000H 
oO 


RECY 5-6 FORMATTTER PROGRAM 


004737 


0S2° 
004737 
004737 


OOS404 
19596) 
Q24737 
050137 


*---O Bees 
0 oo 
Bass oOwogo 
NTMVMUORK WMO 
Novum ys 


oor 


29428 


012164 


oee90) 


Ole2te 


000002 
O1gSé5 


012165 


3$: 
:REO4-S’6 TIMER 


ie Li. 


RPTMR: 


1$: 


4$: 


:SOFTWARE TIMEOUT ROUTINE 
*NOTE: THIS ROUTINE MUST SE ENTERED AT PRIORITY 6 
OR GREATER 


ST0: 


fee ee ee ee me ae ree, ee ees ee 


WUIwWHaOM 
“UW f DO 
Lea) DB < 


ODDO -4-ne, 


or me 
P.*] 


CALL: 


71S 
:BR 
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;GET DPB ADDRESS 


pc £0 
apt isiatr, 16( Re) s INEORM USER THAT DRIVE OFFLINE 
: SAVE’ THE 


‘EMPTY. THE REQUEST QUEUE 


;CLEAR THE PORT REQUEST INDICATOR 
START THE PENDING REGUEST 
: PROCESS OTHER ORIVES 


-ELASPED TIME IN MILLISECONDS ON THE STACK 


:CALL RPO4/S/& TIME ROUTINE 
sCHECK “ACTDRV’ 8 acTSTR” 
:IF NON ZERO EXIT 
:SET “ACTSTR® 
AVE RO - RS 
START WITH DRIVE OC 
IS THE E TINER RUNNING? 
: NTERVAL 
:BR IF NO SOFTWARE TIMEOUT 
a SOF THARE TIMEOUT ROUTINE 
:MOVE TO NEXT DRIVE 
:OUT OF Pe 


BRANCH IF 
; RESTORE 


RE RO - 
: ZERO rae TIMEOUT ROUTINE FLAG 


seruer Tt 
;RETU 


;ORIVE NUMBER 
;CALL 


;SAVE R1 


:SAVE_R3 

:GET ae ESS OF “RPCS1” 
SELECT THE DRIVE 

sREAD “DRIVE STATUS REG” 


“OR eat? 
IF YES 
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ee ae ee. ee oe eee 


(REV 1.0) 
DPINT(R1) TRYING: 10 INTIALIZE THE DRIVE ” 
QS(R1) iBR aa BING PORT REGUEST FOR THE ORIVE ” 
TanSuT. R2 3B tn Rncrer WAIT QUEUE 
R1, OTUW : TRANSFER UNDERWAY ON THIS DRIVE? 


; BRANCH IF 


YES 
TREQ ‘GET DPB ADDRESS 
aptTisr 81709, 16¢R2) :SET 


5 
I 


THE ERROR FLAS 
PC, SVRH1 ;SAVE RH LLaPOWS 6. te STERS 
a8 Toe, RPCS2(R4) -"TNIT" THE MASS BUS 

:ORIVE IS IDLE 
Grorcecnt :CLEAR THE UNLOAD FLAG 
Ri : START WITH” DRIVE 0 
RG, ORVINT sINIT. THIS. DRIVE 
T :PARITY ERROR RETU 

DRVACT(RL) : DRIVE ILE” BEFORE THE INIT. 
‘ YES--BRANCH 


‘GET TRANSFER WAIT QUEUE 
THERE 


TRNSKT, Re ; 

OTUW, RI ee RE 70 ON THIS DRIVE? 

PC GETREQ “GET THE DPB POINTER FROM QUEUE 

aptristerroe, 18(R2) :INFORM USER OF INIT. 

DRVACT i eer’ ORIVE ACTIVE TO IDLE 

ULDFLG(R1) :NO UNL OAD 

W-1,TIMER(R3) ©; STOP T 

(R25¢ :UPDATE THE INDEX 

RI ;IN CREMENT THE ORIVE NUMBER 

1a. .R LAST DRIVE BEEN CHECKED? 

2s :NO=-L 

#1 OTUM NO DATA TRANSFERS UNDERWA 
LEAR TRANSFER WAIT SEUE 

Pe et ROLE ise AR ALL REQUEST QUELIES 


Be ew) RS TREAD ATTENTION REG 
RTABIT(RI), RS iT aad AE FOR THIS ORIVE UP * 


03 
BPINT(RI) HTRVING TQ INTIALIZE THE DRIVE ” 

706 'OR IF YES = DRIVE NOT ONLINE 
DPROS(RL) [OUTSTANDING PORT REQUEST FOR THE DRIVE ° 
STO? 'BR IF YES - NO RESPONSE TC REQUEST 
Ry ,pTu ;DATA TRANSFER UNOERUAY FOR THIS BRIVE 
RO, RD. RP SYES=-CHECK "ROY" 

(SP)4 
STO! :BR IF “ROY"=0 ; 

DPINT(R1) : INITIAL IZING. THE DRIVE 
1$ :BR IF INIT PENDING 
DPROS(RI) :POR rR QUEST PENDING * 
sT09 FN 


8-1, TIMERCR3) STOP THE TIMER 
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ST09 ;EXIT 

eg Agee ;GO HANDLE THE PARITY ERROR 

pe ent AR} Ch AR THE NTT TOLIZE INDICATOR 
at 1) :S wt OFFL 


8-1. TIMER(R3) ;STOP T riMeR 
Pc, GETREQ :GET Ite oF ADDRESS 
Re ‘REQUEST IN QUEUE ” 


ST09 N 
eBITIS!BIT14, 16.42) ,INFORM THE USER ORIVE NOT AVAILABLE 


NISH 
#-1 TIMER(R3) :STOP THE TIMER 
DPR ROS ( : CLEAR PORT. REQUEST INDICATOR 
PERSE TREG 


EF sGET DPE AD BATRY Rae DRIVE ? 
eBIT 1588172, 18( Re) - INFORM USER OF PORT R 


EQUEST ESROS 
PC EMPTYO CLEAR THE QUEUE FOR THE DRIVE ~~ 
PC’ SVRHI 1 ay VE THE REGISTERS 
(SP}+,R3 RESTORE R3 
(SP)+.R1 . ; RESTORE R} 
ps : RETURN 


;ROUTINE TO READ A RH11/RPO4/S’E REGISTER 


rune 
£m 4s: 


PORE OoRRE Rs 


nNnininorsransnsrorararonsnd 
23 


eS 


CIMNOVOOOVOOOOOOOoOOOIMIN00O 


ee *0--6-2 0 — 9 =< & « 6 b= &—= 6-+ b= & — §- + § = — §-< 6- + 0 6-2 


SININNSINNGN 
WWUW 


Teo 
Osc 


me re ee es ee 


RO,RO.RP :G0 = A REGISTER 
REG. INDEX FROM SAaSE 
ERROR ADORESS--PROCESS ESROR STARTING 


THIS 
i RONTENTS OF RES. IS ON THE STACK 


NCPENX,AD.RP2 MAX. RETRYS ALLOWED 

(SP), -(SP) :SAVE RO FOR RETURN 
RPADR,RD.ADR =: FORM THE DESIRED AODRESS 
(RO)}+°RD.ADR USING INDEX 
J(PC)$,(PC)+ READ THE. DESIRED REGIS: ER OF THE RPOY 
9 ADQRESS 13 FORMED HERE 

0 REG. CONTENTS PUT HERE 
D.WRO,2(SP)  ;RETURN IT TO THE USER 

RPADR, -(SP) ;PUT THE ADDRESS ON THE STACK 
aRPese. (SP) FORM THE ADDRESS OF RECE2 
wBIT12,a(SP)+ CHECK T *NED’ BIT 

RD. Fea :BR TF privé NON-EXISTENT 
aRPAD ciSP) i READ RECS] 

#B1T13, (SP) :DID NCPE SET? 


1$ 
Be (RO)+ ‘cist FoR YRETURN 
RD. RPS 


ee. Oe EPP ORT THE nCEe ERR In *SESCAPE® 
OTUW :DATA Tras R BNDERMAY? 
es ;NO--BRA 
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, REOYS.& FORMAT 
SINGLE DUAL PORT RH1L°RPC4/S-6 DRIVER (REV 1 


049000 


040099 


O12e46 
017358 


12244 
COode 
DL74E4 
000150 


017214 


n 
- 
is) 
_ 


177779 
O174S3 
012246 


pies ie 
C10 
010000 
017214 


R PROGRAM 


38: WORD 
RD.RP2: -WORD 
SE 
RD.RP3: nov 
RD.RPY: RTS 


sROUTINE TO WRI 


CALL 


€ 
= 
Lad 


wRT.RP: MOV 
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OFF Took ext AND 
NDING A “1” TO “TRE” 
nan 
FORM ADDRESS OF HIGH YT 
sWRITE THE rite BYTE OF RPCS! 
S EXCEEDED MAX. “etRvs 


FN 
FATAL "ERROR EXIT 


;DATA TO BE LOADED ON THE STACK 
eel THE ROUTINE TO ‘eh whe mene REG. 


IST 
TO RETURN 1S on RIN cRECR 
ERROR FREE RETURN 


:MAX_RETRYS ALLOWED 
: SAVE THE be Chace TO WRITE 


X OF SASH TO BE WRITTEN 
FOR DATA TRANSFERS” 


OL D. alg 
- ERB INE ALBSAL? 
MIAN BE ORE SEnSrNe 





;BRANCH IF “PAR=0” 
:PICKUP THE INDEX 
;READ THE REG. 


MO-12-O02RJ8-A, 
DORIS. 913 


Tie tated 
OO VOOO OVO VOM OOVVOANVIOI0V00000) 


titra atta 


Aololatolotolototalal 
ity ab eet Aa 


2 0—= 0 0 b= 0 bo b= = 0 0 + 0 be b— 0 b= be 2 oe 0 oe pe 
F032 EPO LUO LO 


PN featiatiatcattat at eatats at al atad 


oon 


<9 <p 


333 
ae 





RPO¥.S.& FORMATTTER PROGRAM 
SINGLE DUAL SORT RH1L RPO-S 


i C2d506 


1S: 


DEC 
WRT.R2: . 
SGE 


T 
WRT .R3: 


WRT.RY: 
WRT.RS: 


— TO SAVE THE RH11/RPC4/S/6 REGISTERS AS PER DPB+14 


SVRHil: SA\ 
TST 


S$: 
ts: 


SET. IE: 


MACYL1 27(655} 27-APR-76 i7:59 PAGE 70 
“® DRIVER (REV 1.0) 


;ROUTINE TO SET 
CALL 


-RPADR, RY 
RI,RPCS2(R4) — ; SELECT ORIV 


a ee ee ee ee 









SES COGE - 











0 
iF Rn oF THIS ADDRES RROR 

RO,ES. SAY ae THE dileed in rem abe 

4 : REPORT THE PARITY ON WRITE ERROR 

PO) + :DECREMENT 1 ERROR COUN 

3 sRETRY COUNTE 

WRT.RL TRY AGAIN IF NOT FINISHED 

(SP}+ CLEA N EF THe STACK 

(RO). RO AKE THE “PARITY ON WRITE” ERROR EXIT 

WRT. RS XIT 

{Ra} EXIT FOR ERROR FREE EXIT 














#OPSNLM, Re :DPB POINTER TO R2 
PC, SVRHL1 :SAVE THE DRIVES REG'S 
:SAVE RO - RS 
Re : QUEUE ENTRY FOR THE DRIVE ” 
43 :8R IF NONE 
RRS Rebeca: (RY) s SELECT DRIVE 
TH(R2) R2 THE ERROR OR TABLE POINTER 
&$ tte IF NO AD 
3$ :COUNTER $ POINTER 
3$, e8PDB8 a CHED THE BUFFER REGISTER 
SBITOT RPCSZ(R4)" + °OR’ or ? 
fae.” EBM Bo 
iR3)¢ ; TORE RPDB AS ZEROES 
RO, RD. RP if CT 
"ae a FRE = 
(SP)+, (R3 He er Re RE ore ao ENTS 
(R3)¢ T' 
#.aR BRPECE fen RED IH sig'e 
82,38 MENT THE SISTER INDEX 
1 une READING THE REGISTERS 
PC,cI7 OCESS THE UNCORRESTASLE PARITY ERRDR 
REDE RO - RS 
PC ;RETURN 
THE INTERRUPT WITHOUT GETTING A “TRE” 
#ORVNUM, RI :DRIVE NUMBER TC RI 
aes ay sREYE Op 
R4. -(SP) 


;SAVE RY 
: PICKUP Rive OF RPCS1 
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SINGLE DUAL PORT R11. RPOY 


011446 
sip 


ae 


t0-=9= = OOO 
a0 = S91 
FHo00 


furururore 
tics oeses 
Sood 


OOOoOU 
= — 


RRIRIRIRRRIAR 
SHOES HSSeesS 


forurorure 
RESoSeNS 


oO 
fv 
© 
Bis 
oOo 


Jeo. 


049000 


002109 
010009 090019 


00900: 
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S/& DRIVER (REV 1.0) ; 
MOV (RY). =(SP) :READ RPCS1 
BIS eBIT14, (SP) SET THE "TR 
SWAB ss { SP) !ADJUST FOR 
MOVE #BITOB, (RY) SET "IE" 
BIT aB1T12,RPCS2(RY) ids “NED"=1? 
SNE l : YES--CLEAR "TRE" 
ty (SP)+ E 

1$: MOVB =: (SP24, 1(R4) :CLEAR “TRE” 

2g: MOV (5P)4+'R4 RESTORE R4 
RTS 4 !RETURN TO CALLER 

- QUEUE COUNT 

SCNT: .BYTE O sDRIVE 0 
"BYTE 0 : DRIVE } 
"BYTE 6 DRIVE 
"BYTE & :DRIVE 3 
-BYTE 9 !ORIVE 4 
"BYTE 0 DRIVE S 
“BYTE | 0 SORIVE 6 
"BYTE 0 :DRIVE 7 

:QUEUE INPUT POINTERS 

QINPT: .WORD  GDRVO :DRIVE 0 
[WORD QORV1 :DRIVE | 
“WORD  QDRVe :DRIVE 2 
“WORD  QDRV3 :DRIVE 3 
WORD  ODRV4 SORIVE 4 
WORD  QDRVS :DRIVE 5 
WORD  QODRV6 :ORIVE & 
WORD  GORV? :ORIVE ? 

:GUEUE OUTPUT POINTERS 

GOUTPT: .WORD  QDRVO sDRIVE 0 
“WORD  OCRV1 -ORIVE | 
“WORD  QORV2 :DRIVE 2 
"WORD  QDRV3 sDRIV 3 

QORV4 ;0R 4 

WORD QDRVS :DREV S 
ORD ORV? iBRIVE § 

GSTART: .WORD QDRVO s DRIVE 9 

QSTOP: WORD  QDRV! :DRIVE 9 
“WO QoRVe :STOP ORI 
“WORD  QORV3 : STOP DRI 
ORO SBRVS atop OR 
SRB QDRYV ‘aT Sp Bat 
“WORD  QDRV? :STOP ORI 
WORD  OTERM :STOP OR! 


ee ee ee ee 








;CLEAN OFF THE STACK 





BIT OF THE WORD READ 


a 
o-t08- 








RRReRERE 


ee eo ee 


REOY-S“6 FORMATTTER PROGRAM 
SINGLE DUAL PORT RH11°RPO4/S’6 DRIVER (REV 1.0) 


000019 
Ce0CzZe 


017756 
O17766 20006 
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;CRIVE REQUEST QUEUES 


QORVG: .BLKW 1 
QDRV1: .BLKW 1 
QORVe: <BLKW 10 
QORV3: .BLKN 10 
QORV4 .BLKW 19 
QORVS: .BLKW 19 
QORVE: .BLKW 10 
QORV7: <BLKW 10 
QTERM= 
sROUTINE TO CLEAR ALL OF THE REQUEST QUEUES 
: CALL 
: ISR PC, CLROU 
CLRQUE: SAVREG ;SAVE RO - RS é 
MOV #OCNT, Re : ZERO THE QUEUE COUNTS 
CLR (Re)+ : Vee $81 
éLR (Re)+ :DRIVES 28 3 
CLR (Ro}¢ : RIVE 48 : 
CLR (R2)+ sORIV ¥ 4 
MOV #8. ,R3 : MOVE TARTING 
MOV 8OSTART, RI !ADDRESS OF THE QUEUE INTO 
18: MOV (R1}+, (Re)+ :THE QUEUE INPUT POINTER 
DEC Rs 
ONE l 
MOV #8. .R3 sMOVE THE STARTING ADDRESS 
MOV 8QSTART, RI OF THE SUE UE INTO THE 
2 MOY (R1}+, (R2)+ :QUEUE OUTPUT POINTER 
DEC R3 
BNE 2 
RESREG sRESTORE 80 - RS 
RTS PC 
sEMPTY THE QUEUE SPECIFIED BY 81 - 
CALL 
: MOV DRVNUM,R1 sORIVE NUMBER TO Ri 
; ISR PC, EMPTYO 
EMPTYO: LPB QCNT(RL) ;CLEAR NUMBER OF ITEMS IN QUEUE 
HOV QENPT RL QOUTET:RI) :SET OUTPUT QUEUE POINTERSINPUT POINTER 
RTS pC 3 
sROUTINE TO PUT A REQUEST IN QUEUE 
:CALL MOY ® RI DRIV R 
NOY «DPB Re iRBORESS OF PARAMETER BLOCK 
: JSR RO, DRVGUE :G0 PUT REQUEST IN QUEUE 




















MO-11-O2RJ8-A, 
DZRIB. 913 


lee761 
1421 
0526 


009019 
017755 


017756 
De0096 
D0000e 
020006 


020026 


RPO4-S “6 FORMATTTER PROGRAM 
SINGLE“DUAL PORT RH11-RPO4/S’6 DRIVER (REV 1 


017755 DRVQUE: CMPB #10, QCNT<R1) 31S QUEUE FULL? 


017766 
026030 


017756 


080080 


020008 
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: RETURNI ;RETURN HERE IF QUEUE IS FULL 
: RETURNe sRETURN HERE IF REQUEST IS IN QUEUE 


EQ 2 ‘BR IF Y STAKE RETURN 
INCE GCNT(RI) ‘INCREMENT QUEUE COUNT 
MOV R2, IOINPT(RI) sPUT THIS REQUEST IN QUEUE 
ROD #e, QINPT(RI) DATE T ObEUE POINTER 
CHP ciAPr RL}, bo rop ith* pti © RESET THE POINTER 
MOV BeTART(RI) QINPTIRID YES~-RESET POINTER 
1$: As& Rl 
TST (RO)+ ; TAKE RETURN 2 


2s: RTS RO RETURN TO USER 


:ROUTINE TO GET THE “DPB” ADDRESS OF NEXT REQUEST IN QUELE 
3 CALL 
: MOV sDRVNUM, RI s RIVE, NUNB NUMBER TO R1 
: JSR PC, GETREQ REQUEST 
: RETURN Bo Seog HEURES OF THE REQUEST 
: :Re=0 IF NO REQUEST IN QUEUE 
GETREQ: CLR R2 
TSTB = QCNTCR1) 318 THERE ANY REQUEST IN QUEUE? 

s Ee iden 

; Mov QQOUTPT (RL) ,R2 viene “DPB” POINTER FOR THIS DRIVE 


2s: RTS PC ;RETURN TO USER 
;ROUTINE TO “POP” THE REQUEST FROM QUEUE 


_ MOV ss#DRVNUM, Ril SDRIVE NUMBER TOR 
: JSR PS, POPQUE sCRLL TO REMOVE REQUEST 
: RETURN :R2sADDRESS OF OPB REMOVED 


POPQUE: DECB QONT(RL) specnevent QUEUE COUNT 

MOV OQOUTPT<RI) Re ;GET THE “DPB” POIN 

CHP GoUTPT RL), rol Things ro Reser ofNrER POINTER? 
Roy QSTART RL», ‘oouret iri) SYESC-RESET-T THE POINTER 
RTS PC ;RETURN TO USER 


EREPORTS AN TO eevee” peor b ees OF *SESCAPE’ WHEN THE DRIVER 


1$: 


OLE 


; JSR RO,ES.SAV 
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DZRIB.913 SINGLE DUAL PORT RH11/RPO4/S/’6 DRIVER (REV 1.0) 


3873 : ERROR N 


SEQ COS 


; THE ERROR CALL 


3874 ; RETURN SHHE RETURN IS PAST THE ERROR CALL 
338 OS0& 012037 920522 ES.SAV: MOV —s- (RO)4, 18 ;GET THE ERROR CALL 
O12 O13r4 001160 MOV SESCAPE,~(SP) ;SAVE THE ADDRESS IN *SESCQPE’ 


3823 B5hes8 Bbansg OCL4e0 is: hero CLEAR OROR FALL IS MOVED HERE 


3880 020524 12637 001160 MOV (SP)+, SESCAPE ; RESTORE THE ESCAPE ADDRESS 
3031 020530 d002 RTS RO ? RETURN 

3355 ; 

Soee 33 PREPARE RA RRA LAA ASRARSLAL ALKA HARAL HERA RELA AE SAAR RAASHAA HARA ELLEKE 
3686 _ |SBTTL TELETYPE MESSAGES 

3888 32 O4744O 043108 O4YS14 UNTOFF: .ASCIZ / OFFLINE/ 

3889 O20540 042516 O00 

3890 020543 O40 O47117 O44S14 UNTON: .ASCIZ / ONLINE/ 

3891 020550 042516 000 


0205 O40 047516 020124 NOTRP: .ASCIZ @ NOT AN RPOY/S/6a 
051040 


3834 Oc0S665 000066 
3895 pee tein fe 117 OSCO4O NOTPRS: .ASCIZ / NOT PRESENT/ 


000 
38998 040 047135 O40S23 NOTSAF: .ASCIZ / UNSAFE/ 
3300 ; 
3901 O20626 000 RPOS: :ASCIZ /RPOS/ 
3902 l : IASCIZ /RPO/ 
3803 020640 ou71es 052111 OS144O SYSTAT: :ASCIZ /UNIT STATUS/<CR><LF><LF> 
3904 020646 
ere 020657 O15 O420i2 O44S22 MUNIT: .ASCIZ <CR><LF>/DRIVE: / 
0200 000 
3998 
na: Se 
3311 ana 060 090 VD: ASCI2 /0/ 
3312 040 040 ASCII ¢ / 
sata aot rigs 0 NTROR Kis VENTER ADDRESS LINITS: /<CR><LF> 
Sate aa paatee att y 
3916 020123 O44514 O44515 
3917 Oe0732 051524 006472 OooD12 
3918 Se0740 * 82000 051104 OS3111 MOFFLN: .ASCIZ / DRIVE OFFLINE/<CR><LF> 
3319 020746 020105 O43 ? 
Sas; SSu7Ee Ai 45 DSoe MDRNP: .ASCIZ / DRIVE NOT PRESENT/<CR><LF> 
850795 bezii? rs : 








-ASCIZ / DRIVE NOT AVAILABLE“<CR><LF> 
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OZRJB.013 TELETYPE MESSAGES 

3927 O22 053101 O44501 040514 

3328 030 O4%6102 006505 000012 

3330 sy Ossi 539 MNRPOY: .ASCIZ 32 DRIVE NOT AN RPO4Y/S/6a<CR><LF> 

3 116 145 06 

3932 


ree 


p54108 053111 MUSOR: .ASCIZ / DRIVE UNSAFE/<CR><LF> 
04052 


l 

333 021108 BaeS0e 
3937 ell .ASCIZ 7 SELECTED/ 
3938 De1114 9521 
3333 Oe11e1 0 LASCIZ <CR><LF>/PROGRAM MODE (C OR F): / 
3941 021134 

142 ON7aND 

183 : .ASCIZ / FORMAT & VERIFY/ 

1 

ip .ASCIZ /CHECK ONLY/ 


: .ASCIZ /FORMAT & VERIFY 


-ASCIZ <CR><LF><LF>/OPERATE IN 22 SECTOR MODE (Y OR Nd ? / 


: .ASCIZ /OPERATION WILL GE IN 22 SECTOR (16 BIT) MODE/<CR><LF> 


REN THERE 


WwW 
-_ 
£ 
- 
~ 
£ 


Riz 
ato 


MSEC20: .ASCIZ /OPERATION WILL BE IN 20 SECTOR (18 BIT) MODE/<CR><LF> 


FENTURE RES 


<= 
_— 
<£ 


BADENT: .ASCIZ /INVALID ENTRY/<CR><LF> 


P= be pa 
Coa 
— 


ZENDING DSK ADRS MUST BE EQUAL TO OR GREATER/<CR><LF> 


bb bs hh 2 bh bb be b&b bh bb bb 0 8 bb = mb pe be hp pp ee pe 


NEROERB 


Ree 
2 


| RRRRRRRRA PP hlouvrororororuruluferororororororuroforurorororororororororororoforofore 


MD-11-02RJB-A, RPOY 
0 LE 


88 


-~ 
£ 


fo 
furorurururororore 


= bb — b— b= b— b= bb — p— p— 3 pe pe 


Resse eeSues 


o 
-_ 
Tw 


FOUOUUTUUUTUOIOID fOrUFoDrUrorororurorore 


SUIRONSSSARS KEENE 


SSESSESESSES 
DWNMWUI£Wl--O 


8 
WwW 


as 


fo 
ee 


SERRE 


5 
2 
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.ASCIZ 
MSELP: .ASCII 
.ASCII 
.ASCIT 
-ASCIZ 
MPATD: .ASCIZ 
MSFOU: .ASCIZ 
MSCHK: .ASCIZ 
MFCMPT: .ASCIZ 
MCCMPT: .ASCIZ 
NUMERR: .ASCIZ 
ADDRIS: .ASCIZ 


fp RERARSEAAERESASAAALAAAELAAARELELALALAAAARAARALARARARAAAALATARERE 
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/THAN STARTING ADRS/<CR><LF> 
/SELECT ‘DATA PATTERN/<CR><LF> 


/ (0) ZERO’S/<CR><LF> 


¢ (1) ONE’S/<CR><LF> 
/ (2) WORST CASE: / 


(CR><LF><LF>/STARTING FORMAT ON DRIVE / 
(CR><LF><LF>/STARTING CHECK ON DRIVE / 


<CR><LF><LF>/FORMAT COMPLETE, / 
(CR><LF><LF>/CHECK COMPLETE, / 


“TOTAL ERRORS DETECTED: / 


/PRESENT ADDRESS IS: / 
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/RH11 INTERRUPT OCCURRED (RPAS=0)/ 
/PERSISTENT DRIVE UNSAFE ERROR/ 
/UNCORRECTABLE MASSBUS PARITY ERROR’ 


/MASSBUS PARITY ERROR (MCPE=1)/ 
ADDRESS PLUG CHANGE SIT SET’ 


-ASCIZ /RH11 DIDN'T RESPOND TO ADDRESSING’ 
“SOFTWARE TIMEOQUT/ 


MACYL! 27(65S) 
-ASCIZ /MASSBUS PARITY ERROR (PAR+1)/ 
-ASCIZ /ORIVE OFFLINE/ 


-ASCIZ 
-ASCIZ 


-ASCIZ 
ASCIZ 
-ASCIZ 


fp RRARAEAAAERAAA LAS EAALAAA AALS AR ESSE RARALE LA LAL ERAAALAF EAA LEAAESS 


0 Be O44440 EMI: 
0511 0S2S2e 

16 

“ 


f 
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: 
Z 
é 
= 
5 
~ 
a 
LY) 
O25 


es 
3 
| 
1 
1 
=) 
1 
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3 


23028 
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33 
REAR 
Solas 
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BO VFR LGU—S 


bas bo poe he oe 
£WMr-O 





RPO4/S/6 FORMATTTER PROGRAM 
ERROR MESSAGES 


042515 
051104 
71 


é 
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~“ 
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AZAR 
San ENsenBs 


B 228 
REE 


RPRRPLSAIIARE SHR 
Rerohive: taenesse 


2308 


Rs 
_ 
™~s 


222R 
ee 


a 


HH 


PELE 
Bee 


_ 
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£ 


rt: 
ix) 


7117 


BS Be 
BERR 2 
see i 


000124 


R 
g 


— 
on ae 


fen 


™“ 
-— 


R222 
Spite 


EM14: 


EMIS: 


EM16: 


EM17: 


EM20: 


EMe1: 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 
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/ORIVE UNSAFE ERROR/ 


JCONTROLLER/DRIVE ERROR DURING WRITEQ 


DCONTROLLER/DRIVE ERROR DURING WRITE CHECKI 


QRETRIES NOT SUCESSFUL - SECTOR NOT ACCEPTABLED 


@DATA ERROR DURING WRITE CHECKa 


QCONTROLLER/DRIVE ERROR VERIFYING HEADERS@ 


DHEADER COMPARE ERROR VERIFYING HEADERS@ 


OCYLINDER FIELD IN HEADER IS NOT CORRECT2 
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55 
56 
5? 
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$9 
$9 
61 
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4 We- 
ss 


REO4 H 
ERRO 


o42522 
12: 
O44 

444 
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RBBRRE 
BoeR 
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Z 


Trae fo 
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020940 
042117 
O40S0e 


042104 
00 


020040 


-ASC 
ASC 


-ASCIZ 


~ASCIZ 


.ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


if 
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ASTIZ SWRITE CHECK ERRORS 


£ yp SRTRFESSARAFRSPSAALELASELSSALFRSSLLERSSSESRAFLFFSSSSLAELFLEFAFALES 


/RPAS” 
/ORIVE RPOSl RPE] RPERE RPERS 


‘DRIVE REG ADR DATA’ 


“DRIVE REG ROR GOOo BAC. 


(RH ADDRESS, 
‘DRIVE ERR PC RPCS! RPCS2 ROS 


/RPECL RPEC2 RPC RFSS RPDS 


/RPOS RPMR RPOT RESN RPCF 





ae oe ee ee oe oe oe 
t= ] 


furore 


££ SS. SS 
tururururur ete: 
0-2 0-9 BH © 0-2 0-— 9 <p +6 -~—pH-o 
OOD SSP UT. LTE 


furuoruru 


pity 
Sri rs 


2 oS 
n 
Tbe o + 0-+ 0-2 0-2 0-2 0 oo oo 
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ReRBREeS & 
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STAY A tire 4 
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PEPEARON 
ieee 

Oe LOR-VOUTDO 
Resse 
O~mMWwrm 


Reo 


RES 
Re 
8 


tatoros foun 


2 
~ 
ut 
fu 
oo 


ot 


Moke : 


3 





OH17: = =.ASCIZ «RIVE 


OH20: .ASCIZ -ORIVE 


DHECA: .ASCIZ -RPCS! . 


OHECB: .ASCIZ -RPWC 


DH20C: .ASCIZ /RFSN 


OHe3: .ASCIT 


-ASCIZ /ORIVE 


~~ neces ae ee oe ne ge ee <e 
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ERR PC CYLINDER TRACK SECTOR, 


ERR PC CYLINDER TRACK SECTOR/ 


RPOS! RPERi RPER2 APERS APEC! 


RPDASC«RPAS)=Ss«*RPLA = s«RPOS~—SséRRPINR 


RPCR RFCS. 
EXPT'D/<CR> «LF» 


CYLNDR ACTURL HEADER ° 
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ERROR MESSAGES 


O4O44O 052103 40525 
020114 O4%eS1i0 O4e2101 
051 000 









Au8 O20049 O2004O DHe4: ASCII « MEMORY 
O20040 020040 920040 
C O2004O0 20040 


Abie O4eS26 ASCIZ -ORIVE -ERR PC CYLNOR TRACK SECTOR OARTA CATE/ 





001276 OT1: WORD ATTN pe 
O0le74 O12100 912192 OT2: WORD OORIVE,RPERRS,RPERRS+2,RPERRS+4, RPERRS+6, TTN 
Oi2104 012106 001276 
01574 O17240 Ol7e¥2 DT3: WORD DORIVE.RD.ADR,RD.WRD 
Do1e74 O17¥e4 O17Hee C74: WORD DRIVE. WRT.AD, WRT. AD, RO. HRD 
00117 OTE:  .WORD  SRPADR : 
OO1214 OO1116 001204 OT!0: WORD DRIVE, SERRPC,RP.REG,AP.REG+10,RP.REG+12, RP. REG+14, RP. REG*HO, RP. REG*42 
001314 001316 001320 : 
001344 901346 
001350 00132 901306 WORD RP. REG+44, RP. REG+46, RP. REG+2, RP. REG*H RP. REG#S AP. REGHIS, AP. REGS 
001319 001312 001322 
001326 001330 901332 WORD RP. REG*22, RP. REG+24, RP. REG+26, RP. REG+30, RP. REG*32, RP. REG*34 RP. AEGe SE 
001334 001336 001340 | 
D01214 901118 001270 DT17: WORD . ORIVE, SERRPC.DS. CYL, DS. TRK, SAVSEC 
091672 o01252 
901214 D011 001270 D720: WORD DRIVE, SERRPC,DS.CYL,DS. TRK, SAVSEC 
Bose 01319 oo1ai6 .WORD RP. REG, RP.REG+10,RP.REG+12, RP. REG+14, RP. REG#4O, RP. REGHHE, RP. REG*HH, RP. RE 
001320 001344 001346 
001350 90013s2 , me 
001306 001310 001312 -HORD RP. REG+2, RP. REG*4, RP. REG*G RP. REG#1E, RP. REG+20, RP. REG*Z2, RP. REG*24, RP. RE 
001322 001324 001326 
001330 001332 
001334 001336 001340 .WORD RP, REG+30, RP. REG+32, RP. REG*+34, RP. REG+36 
353 Oe QO12149 001116 025130 OT23:  .WORD ORIVE,SERRPC,SUFP,RBUF REUF+2, ROUF +4, RSUF +E 
4205 Se4716 O25120 26122 2 


0eS124 





wah hee 
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ERROR MESSAGES 


025126 
001214 
pRIEce 
i 
091320 
001350 
091306 
00132 
902330 


001334 
301342 


0-0 0 eee 
GIGIGIGIG) 


ooo Oo oo 
SB000008 8a 
GWwru 
wr 


GW) ff.e- 
ulin 


£o- 
£f 


ore 


Qo oa 
Qo Oo 
amo o 


000 
000 
)8)8) 
039 
ccc 
O34 
S34 
328 
908 
ocd 
C90 
O34 
o0c 
oo0 
e186) 


fo 


O012e70 O24: 
i24 


00112 


00:316 
001346 


002312 
001326 


001340 


DF23: 
DF 24: 


5 LSPRAEFLERALAEEAATLARAARAARFAATAHLAALAPSERARETTLARTASAASTLAARARARA 
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“DRIVE, SERRPC DS. CYL, 0S. TRK, SAVSEC, $GODAT RP. REG+22 
RP. REG, RP.REG+10,RP.REG+12,RP.REG+14,&P.REG+40, RP. REG+42 RP. REG+44, RP. SE 
RP. REG+2, RP. REG+4 RP. REG+E, RP. REG+16,RP.REG+20, RP. REG+22, AP. REG+e4, RE RE 


RP.REG+30, RP. REG+32, RP. REG+24, RP. REG+36 


Lje- Oo 


oOo a 0 0 


Oo oo 
wo PD 


ful IO NOWW £- 
fuW WwW Or-Or— 


H25 


mOowOou 


f£O0O0M0N LI co 


;BUFFER STARTS HERE 


§ E RREREFRARERFERFSRAFSRSEFHSLERAPERAERERAELRERTELFTARARERERTTAUTTLR 


ee ee eee 


17:59 PAGE 82 








RPO4. 56 FORMATTTER PROGRAM MACYL! 271655) 27-APR-76 17:59 PAGE 83 

ERROR MESSAGES 

o99008 coo900 900000 RSUF: .WORD 0,0,9.0 :BUFFER FOR HEADER CHECK 
000508 | 








BUFP: ;FORMAT AND CHECK BUFFER STARTS HEFE 
12 O44501 TITLE: .ASCIZ <CR><LF)<LF> “MAINDEC=11-DZ2RIB-A/ «CRD (LF 


Z 
g22 


e 
oo 
OF. 
Be 


~ASCIZ = JRPOY S’G FORMATTER PROGRAMS<CR><LF> «LF 


fo 
2 
an 
fo 
SEP 
thal 


oom wl 
2R S22 
oO 
ul 
- 
un 


LOADRY: .ASCII <CR><LF>“TC “FORMAT’ OR ‘CHECK’ DRIVE 0, REPLACE THE ‘XXDP*/<CR><LF> 


g Bax 


"3 
Ege 
BERL 


020113 -ASCII “PACK ON DRIVE OC WITH ANOTHER PACK, CLEAR MEMORY LOCATION 40, /<CR><LF> 


Conon Oo 
aR 2 
ws a 
ul — 
i oO 
iav) — 


iO 
or 


c51040 LASCIZ “AND RESTART THE PROGRAM’ <CR><LF 
963122 


046501 


ta - 
& x} 

Reet MEIPPErwore 
Ore UV 
B8e62 

s 


D0s015 


~SBTTL_ BUSADR - GET BUS AODRESS AND VECTOR ADDRESS FOR RH11 
:THIS ROUTINE IS USED TO INSURE THE BUS ADDRESS 

;OF THE RH11 IS SETUP FOR THE PROPER ADORESS. 
;1T WILL ALSO READ THE ADORESS FROM THE TTY IF 


‘NOTE: THIS ROUTINE DESTROYS RC-RY 
> CALL 


. JSR PC, BUSADR 
: RETURN 





a ne 5 ee eee 


5 | 
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DeRIE. O13 BUSADR - GET 8US ADDRESS AND VECTOR ADDRESS FOR RH11 
4413 025434 005737 001302 BUSADR: TSI CHGADR s INPUT FROM TTY REQUESTED? 
4414 peetig pois Q , g NO--BRANCH 
4415 O3544 037 001302 L CHSADR YES==CLEAR THE REQUEST FLAG 
4415 pests 012700 901172 1$: MOV BSRPADR, RO sEIRST ADDRESS 
44? us 104491 025634 TYPE MRPCS1 "RPE 
4418 O25456 O12046 MOV tRO)+, -(SP) “PRESENT RPCS1 ADDRESS 
4415 925460 104402 TYPOC TYPE IT 
4420 025462 10440! O20705 TYPE —,LINSP :2 SPACES 
4421 025466 104411 . ROLIN :GET THE ENTRY 
4432 470 «91280! MOV (SP)4+,R1 i ADDRESS OF ASCII TEXT 
4423 025472 O04S37 O256S6 JSR RS, CK. NUM :C NUMB 
44e4 025476 3esSi6 33 EET AGe RETURN ONLY ENTERED 
4425 025500 o25562 : :PERIOD ONLY uf TERED 
4426 GeSS02 O2eS446 1$ PILL 
4437 925504 Oe5S1e 23 ‘TERMINATED UITH A CARRIAGE RETURN 
4438 O25506 25446 1$ > TERMINATED WITH A”, 
4429 025510 O25556 43 s TERMINATED WITH A ”." 
4430 O25Sie 010260 177776 23: MOV R2,-2(RO) ; SAVE NEW RPCS1 
4431 025516 104401 dO2564s 3$: TYPE HVEC :"RHVEC=” 
4433 925522 0120 MOV tRO)+, =(SP) ; PRESENT RH11 VECTOR ADDRESS ON THE STACK 
4433 925524 1044 TYPOC T 
4434 025526 104401 O20705 TYPE ,LINSP :2 SPACES 
4435 025532 104411 ROLIN :READ THE ENT 
4436 025534 012601 ; MOV (SP)+,R1 ASCII TEXT ROSRESS 
4437 025536 004537 o25656 JSR RS, CK: NUM. : CHECK THE NUMBER 
4438 dess42 o2esSbe 73 CAR RIOQGE RETURN ONY ENTERED 
4439 925544 025562 73 *PERIOU ONLY ENTERED 
4440 025546 OeSS1e 33 SILLEGAL INPUT 
444i 925550 025555 4 : TERMINATED MITH A CARRIAGE RETURN 
4442 025552 o2551 3§ : TERMINATED WITH A ™ 
4443 O255S4 o25556 4 | s TERMINATED WITH A.” 
4444 025556 010260 177776 43: MOV R2,.-2(R0) ~ AVE INPUT 
444s 025 013701 o00904 73: MOV ERAVEC, Ri : SAVE ne ERROR VECTOR 
ya4g 25 012737 O25622 900004 MOV 88S, ERRVEC sSETY UP FOR TRAP 
4447 025574 005777 153372 TST JSRPADR : CHECK FOR RH11 
4448 9 010137 009004 MOV R1, ERRVEC RESTORE ERROR VECTOR 
#448 025604 012700 001172 MOV wSRPADR RO iF RST ADDRESS OF NEW PARAMETERS 
4450 C2e5S10 Ole70l O122e46 MOV RPADR, R1 FIRST ADDRESS OF WHERE TO PUT THEM 
| 4451 025614 Oledel MOV (RO}+. tRi)+ BUS ADDRESS 
4452 O25E16 912081 MOV (RO)+; (R1)+ s VECTOR ADDRESS 
4453 025620 o00e RTS PC R T 
4454 O2S622 010137 o00004 83: MOV R1, ERRVEC REST ORE ERROR VECTOR 
| 4455 Q25626 022626 CMP (SP)+, (SP)+ CLEA N OFF THE STRC 
| 4456 025630 104006 ERROR j :REPORT THE ERRO 
wO7 §e5632 609705 BR 1$ :ASK FOR BUS ACORESS 
| 4459 025634 050122 051503 02006: MRPCSI: .ASCIZ @RPCS1 = 9 
4460 Oe5¢4e2 075 
| $451 OeSe45 ise ¢ ext O41S505 MRHVEC: .ASCIZ SRHVEC = 2 
m O25652 026440 65004 
| 4464 .SBTTL CK.NUM - CHECK NUMSER (OCTAL) 
| MME : THIS ROUTINE CHECKS AN ASCIZ STRING FOR LEGAL CHARACTERS 
| MEE !AND FORMS AN OCTAL NUMBER IN Re 
| 
} 
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fie 





#ADR,R 


RY, -(SP) 
R3,-<( SP) 
Re, -(SP) 
By 
R3 


Re 
RS, CK. CHR 


(SP)+:R4 


70 
7D 
31 
°F 
70 


ah 
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a oe A iN 


Z_STRING 
a NUMBER 


NTER RED 


Re = 
“BERIOD™. ONLY EN ERED om 


"CR" 


;SAVE RY 
SAVE R3 


SAVE Re 
sR TURN 


sr epiee CHARACTER IN My 4 INPUT STRING 
ENTERED -- Re = NUMBER 


;"C e = 
:"PERIOD" -- Re = 


NUMBER 
NUMBER 


POINTER 
: START ware AT ZERO 


STORE RESUL 


CHECK ONE CHARACTER 
; ILLEGAL CHARACTER 


DWDM 4D 


; CARRIAGE RETURN 


RETURN PAST “CR” AND “PERICO™ ONLY RETURNS 
NOCTAL NUMBER IN R2 
IT GET TO BIG 


cf igs ine ste 


‘LOAD E 


he 





Tah ADDR Eee 
oie a8, 


;RESTOR Ry 








ee ee eee = 


ook 5/6 FORMATTTER PROGRAM 


ee ee ee 


«NUM = CHECK NUMBER (OCTAL) 


211505 MOV 
000295 RTS 
CoooC! END 
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;GET RETURN SDDRESS 
sRETURN 


———————— ae 


SEZ C096 
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MD-11-D2RIB-A, RPOY’S/6 FORMATTTER PROGRAM 
OZRIB.013 SYMBOL TABLE 








Ags = 000200 ' @tK = 000123 AcL = QOO004O . ACTORV 012154 
ACTSTR O1e16$ acu = 10000 , BOR TS Bese 5 ADRTBL pO ase 
aoe = 001000 att = Annee - di 5s 4 ane 1276 
aya = ppoced Ars = ObbDud aye = Sob100 are = boned 
ate ® paras aie " s palo ayy bea tse pal ~, atte 

BERK 01830 BITO. = QOObG: BTTo0 = OO0b0! BTTOl~= OO00S 
BITOe = 000004 BITO3 = 000010 BITOY = 000020 BITOS = QO0040 
BITO& = 000100 BITO? = 000200 BITOS = 400 BITOS = 001000 
BIT! = 000002 BIT1O = 002000 BIT11 = 004000 BITle = 010000 
BIT13 = 020000 BIT14 = 04G000 BIT1S = 100000 BIT2 = QO0004 
Bits = 000010 BITY = 000020 SITS = O00040 BIT6 = 000100 

It? = 000200 BITS = 000400 BITS = 001000 BPTVEC= 000014 
BUFP 025130 BUSADR 025434 C 020675 CHGADR 001302 
Cll 013606 Rty 13714 CI4¥ - Q1402e cIs aoe 
CIé O1442e CI 14436 CI7B. - O14464 cig 14536 
CK 003570 CKSWR = 104407 CKTRK Q04236 CK.CHR O06426 
eee ine ee px, OIG RaeRUn ery 025656 ey 006. 3 

8a\: = 
KR = 900015 Ret = Kee = nate ; F ie 5 
CYLCK O0124%6 DCK = 100000 DCL = 000100 U 0001 





a 






rc 









DZRIB.013 


oc 

OFSO 

OPT 

PAT = 

PC =: 

PIRQ = 

acy = 

PS = 177776 

PWRVEC= 
-|}QDRV2 Qe2011 

QDRVE 021 

QSTART 0026 

RBUF 025120 

ROLIN = hea 

RO.RP1 017236 

RD.WRD O Aw 

RESREG= 1 i 

RNOP = 000101 

RPCA = 

oe: 

RPERS = 

RPMR = 


3 
Se 


“SS 
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eee -- 


1 
= 

PAR 000010 
PAR3 001454 
PATB 001244 
PGM = BeOS 
PLU = 0200 
PRe = 000100 
PRE = 000300 
PSU = 000001 
apn 020050 
QINPT ita 
QTERM ; 


ASE 
2 


a3" 
ae age 
Boss Se 
seste~ 


-_ 
—-WMO 
™~ 


29 


" 
<x 


ae 
ie 
He 


SSSSSan 
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uw 
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=e 
e825 
e2er8 


2 


sees 


a 
We 
WCKHD 
WRL 


Pirie 


55% 


até 


ae 


Seifhr= Oboiss 
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SE THOR Bic: 


Sat BE 
ed fe 
aS: 


SES C101 
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ERRORS DETECTED: 0 
a is. aS et MC:MD: CNDSRPO4SS.010,DZ2RI2.013 
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